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. Dynamic  planning  tool 
. Optimization  model 

. Fleet  Readiness  Training  Squadron  planning  tool. 

The  Dynamic  planning  tool  simulates  the  undergraduate  pilot  training  program  ’ 
on  a weekly  basis  whereas  the  Static  IFRS  assumes  an  even  annual  flow  of  students,  i 
The  Optimization  model  has  two  segments  - a PTR  Maximizer  that  calculates  the  ! 
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ventory and  a MCON  Mlnlmlzer  that  calculates  the  minimum  facility  cost  phase-to-basel 
assignment  for  a desired  PTR.  The  Fleet  Readiness  Training  (FRT)  model  provides 
planning  Information  for  the  readiness  training  squadrons  and  Is  designed 
similarly  to  the  Static  IFRS  model.  The  Phase  III  documentation  consists  of  the  ; 
following  four  reports:  j 
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• The  Integrated  Facilities  Requirements  Study  | 

(IFRS)  Phase  III.  ORI  TR  645  \ 

• Development  of  the  Automated  Dynamic  Model  for 
the  Integrated  Facilities  Requirements  Study  (IFRS) 

Phase  III.  ORI  TR  646 
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Integrated  Facilities  Requirements  Study  (IFRS) 
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• Development  of  the  Fleet  Air  Readiness  Training 
Model  for  the  Integrated  Facilities  Requirements 
Study  (IFRS)  Phase  III.  ORI  TR  648. 

t • This  report  documents  the  Dynamic  model.  Volume  I contains  a Nummary  of  the 

r-  Dynamic  model  and  the  functiona?  relationships  employed.  Volume  II  contains  the 

User's  Manual  stating  how  to  use  the  tool.  Volume  III  contains  a listing  of  the 
^ computer  programs  in  the  Programmer's  Manual. 
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13.  abstract 


This  report  documents  the  Dynamic  Planning  model  developed  as  part  of  the 
third  phase  of  the  Integrated  Facilities  Requirements  Study  (IFRS) . 

In  Phase  I,  two  analytic  submodels  were  developed.  The  first,  a Logistics 
Support  Requirements  Generator,  estimates  personnel,  aircraft,  and  fuel  requirements 
for  each  phase  of  undergraduate  pilot  training  at  the  Naval  Air  Training  Command 
(NATRACOM).  The  second,  a Pacing  Facilities  Requirements  submodel,  calculates 
facility  requirements  for  each  phase  of  training. 


The  purpose  of  the  Phase  II  study  was  to  develop  a preliminary  total  systems 
IFRS  management  planning  tool  (including  the  two  submodels  developed  in  Phase  I,  as 
well  as  Base  Loading,  Facilities  Excess/Deficiency,  and  Total  Cost  submodels),  and 
automate  the  model  so  that  it  provides  quick,  accurate,  and  relevant  information 
for  use  in  the  decision-making  process.  This  Static  IFRS  model  has  been  in  con- 
tinuous operation  since  March  1970. 


The  purpose  of  the  Phase  III  study  was  to  refine  the  Static  IFRS  model  and  to 
expand  the  IFRS  concept  by  developing  three  additional  planning  tools  for  use  by 
Navy  decision-makers  as  follows: 
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Prepared  under  Contract  N00025-67-C-0031 
for  the  Naval  Engineering  Command 
Department  of  the  Navy 
Washington,  D.C. 


This  report  documents  the  Dynamic  planning  m.odel  developed  as  part  of 
the  third  phase  of  the  Integrated  Facilities  Requirements  Study  (IFRS).  It  has 
been  prepared  for  the  Systems  Analysis  Division  of  the  Office  of  the  Assistant 
Commander  for  Facilities  Planning  (Code  20),  Naval  Facilities  Engineering 
Command  (NAVFAC),  Department  of  the  Navy,  as  part  of  Contract  N00025-67-C-0031 
(NBy-78672)  awarded  to  Operations  Research,  Inc.,  in  June  1970. 

In  Phase  I,  two  analytic  submodels  were  developed.  The  first,  a 
Logistics  Support  Requirements  Generator,  estimates  personnel,  aircraft,  and 
fuel  requirements  for  each  phase  of  undergraduate  pilot  training  at  the  Naval 
Air  Training  Command  (NATRACOM).  The  second,  a Pacing  Facilities  Require- 
ments submodel,  calculates  facility  requirements  for  each  phase  of  training. 

The  purpose  of  the  Phase  II  study  was  to  develop  a preliminary  total 
systems  IFRS  management  planning  tool  (Including  the  two  submodels  develop- 
ed in  Phase  I,  as  well  as  Base  Loading,  Facilities  Excess/Deficiency,  and 
Total  Cost  submodels),  and  automate  the  model  so  that  it  provides  quick, 
accurate,  and  relevant  information  for  use  in  the  decision-making  process. 

This  Static  IFRS  model  has  been  in  continuous  operation  since  March  1970. 

The  purpose  of  the  Phase  III  study  was  to  refine  the  Static  IFRS 
model  and  to  expand  the  IFRS  concept  by  developing  three  additional  planning 
tools  for  use  by  Navy  decision-makers  as  follows: 


• Dynamic  planning  tool 

• Optimization  model 

• Fleet  Readiness  Training  Squadron  planning  tool. 
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The  Dynamic  planning  tool  simulates  the  undergraduate  pilot  training 
program  on  a weekly  basis  whereas  the  Static  IFRS  assumes  an  even  annual 
flow  of  students.  The  Optimization  model  has  two  segments— a PTR  Maximizer 
that  calculates  the  maximum  annual  pilot  training  rate  (PTR)  possible  for  a 
given  facilities  Inventory  and  a MOON  Minimizer  that  calculates  the  minimum 
facility  cost  phase-to-base  assignment  for  a desired  PTR.  The  Fleet  Readiness 
Training  (FRT)  model  provides  planning  information  for  the  readiness  training 
squadrons  and  is  designed  similarly  to  the  Static  IFRS  model.  The  Phase  III 
documentation  consists  of  the  following  four  reports: 

• The  Integrated  Facilities  Requirements  Study 
(IFRS)  Phase  III.  ORI  TR  645 

• Development  of  the  Automated  Dynamic  Model  for 
the  Integrated  Facilities  Requirements  Study  (IFRS) 

Phase  III.  ORI  TR  646 

• Development  of  the  Optimization  Model  for  the 
Integrated  Facilities  Requirements  Study  (IFRS) 

Phase  III.  ORT  TR  647 

• Development  of  the  Fleet  Air  Readiness  Training 
Model  for  the  Integrated  Facilities  Requirements 
Study  (IFRS)  Phase  III.  ORI  TR  648. 

This  report  documents  the  Dynamic  model.  Volume  I contains  a summary 
of  the  Dynamic  model  and  the  functional  relationships  employed.  Volume  II 
contains  the  User’s  Manual  stating  how  to  use  the  planning  tool.  Volume  III 
contains  a listing  of  the  computer  programs  in  the  Programmer’s  Manual. 

These  IFRS  models  were  developed  and  programmed  by  the  staff 
members  of  the  Economic  Analysis  Division  of  Operations  Research,  Inc. , 
under  the  direction  of  Dr.  William  J.  Lelnlnger,  vice  president  and  division 
director,  and  Thomas  N.  Kyle,  program  director.  The  project  team  members 
included  R.J.  Craig,  M.C.  Fisk,  W.  Liggett,  F.  McCoy,  R.  Messalle, 
and  R.  Yockman. 

Mr.  Dennis  Whang  of  the  Systems  Analysis  Division  of  Facilities  Plan- 
ning was  contract  monitor  for  NAVFAC.  In  addition,  valuable  assistance  was 
provided  by  many  other  Navy  personnel  including , in  particular,  those  in  the 
Office  of  the  Staff  Civil  Engineer  and  the  Training/Plans  Division  of  the  Naval 
Air  Training  Command,  the  Aviation  Training  Division  of  the  Chief  of  Naval 
Operations,  and  in  the  Systems  Analysis  Division  of  NAVFAC.  The  authors  grate- 
fully acknowledge  the  contributions  made  by  all  of  these  people  to  the  develop- 
ment of  the  IFRS  models. 
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I.  INTRODUCTION 


1 .1  This  volume  describes  the  overall  system  characteristics  and  flow  for 
all  computer  programs  included  in  the  Dynamic  IFRS  model.  The  purpose  of  the 
programmer's  manual  is  to  provide  tlje  verbal  description,  flow  charts,  variable 
dictionary,  program  and  subroutine  dictionary,  and  program  listing  for  each  of 
the  computer  programs  that  constitute  the  automated  model.  This  programmer's 
manual  provides  Navy  personnel- with  the  information  required  to  understand 
the  logic  of  the  programming  and  to  make  changes  to  the  programs  as  necessary. 

1 .2  The  programs  have  been  written  in  FORTRAN  for  use  on  a General 
Electric  (GE)  635,  Mark  II,  time-sharing  computer  system.  It  is  assumed  that 
the  programmer  using  this  documentation  is  fully  acquainted  with  GE  Time- 
sharing Mark  II-FORTRAN  .1/ 

1 .3  Because  of  the  "in  core"  word  limitation  imposed  by  the  GE  635  time- 
sharing computer,  the  automated  Dynamic  IFRS  model  is  comprised  of  nine  dif- 
ferent computer  programs . This  computer  will  only  permit  a program  of  approxi- 
mately 12,800  36-bit  words  to  reside  within  the  computer  memory  at  any  one 

time.  Since  the  total  Dynamic  model  is  much  longer  than  this  limit,  it  was  necessary 
to  use  nine  operating  programs.  Table  1 lists  each  of  these  programs,  its  source 

\y  Converting  the  computer  programs  contained  in  the  automated  IFRS  model 
for  use  on  other  FORTRAN  IV  systems  would  require  major  revisions  to  each 
individual  computer  program's  input  and  output,  due  to  a special  feature 
in  the  GE  time-sharing  FORTRAN  that  allows  unformatted  input  and  output, 
and  adaptation  of  a BASIC  language  feature.  The  authors  of  the  IFRS  com- 
puter programs  utilized  this  feature,  when  practical,  to  provide  the  user 
with  maximum  terminal  input  flexibility.  In  addition,  storage  restrictions 
might,  in  other  FORTRAN  IV  systems,  require  resegmenting  the  IFRS  system 
so  maximum  program  storage  requirements  would  not  be  violated. 
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and  compiled  names,  and  source  and  compiled  lengths.  The  asterisk  in  the 
sixth  character  in  the  compiled  name  allows  these  programs  to  be  accessed 
by  all  users  (with  certain  restrictions)  having  similar  GE  user  numbers. 

1 .4  Figure  1 shows  the  overall  flow  through  the  nine  programs  and  the  con- 
nection with  the  required  Static  IFRS  programs.  The  various  data  files  needed 
during  the  course  of  a run  do  not  appear,  since  most  programs  and  files  are 
accessed  several  times  and  the  overall  flow  chart  would  be  nearly  unintelligible. 
For  this  reason  Table  2 gives  a list  of  data  files  that  may  be  used  by  each  pro- 
gram. Table  3 gives  a brief  description  of  all  computer  programs  and  data  files 
utilized  by  the  automated  Dynamic  IFRS  model. 

ORGANIZATION  OF  MANUAL 

1 .5  The  remaining  portion  of  this  manual  describes  each  of  the  nine  computer 
programs.  For  each  program,  a detailed  verbal  description,  flow  charts,  variable 
dictionary,  routine  dictionary  (briefly  describing  the  function  of  each  main  program 
and  its  subroutines),  and  program  listing  are  provided. 

1 .6  The  last  three  sections  of  this  manual  contain  a description  of  the 
internal  random  binary  files  used  by  the  programs. 

1.7  Whenever  possible  variable  names  were  selected  as  mnemonics.  For 
example,  in  program  DYNA3,  the  variable  AUTIL  refers  to  aircraft  utilization 
and  STUDIN  refers  to  student  input.  Since  the  programming  was  done  by  several 
programmers,  the  mnemonics  are  not  consistent  among  programs. 

1 .8  The  programmers  have  Included  comments,  as  well  as  frequent  blank 
lines,  within  the  coding  as  an  aid  to  the  user.  A blank  line  indicates  a new 
step  in  the  process,  i.e. , a new  task  is  being  started. 

1 .9  Particular  note  must  be  made  of  the  use  of  the  common  area  of  storage. 
Not  all  of  the  variables  in  the  common  area  are  needed  throughout  the  entire 
program.  Thus  the  purpose  and  names  of  variables  in  common  often  change. 

To  understand  the  programs,  the  reader  should  consult  the  tables  of  variable 
names  for  their  description. 

1 .10  Subroutine  NOYES  is  used  in  almost  every  program.  Since  its  purpose 
and  action  is  the  same  in  each  program,  it  will  only  be  described  and  flow 
charted  once  in  program  DYNAM. 

1.11  The  Dynamic  IFRS  model  uses  two  programs,  LSRl  and  LSR2 , from  the 
Static  IFRS  model.  They  have  been  modified  slightly  to  permit  their  use  by  the 
Dynamic  model.  The  programs  are  not  discussed  or  listed  in  this  manual.  For 
the  changes  and  new  listing,  the  user  is  referred  to  manual  of  changes  to  the 
Static  IFRS  model. 

2/  The  Integrated  Facilities  Requirements  Study  (IFRS)  Phase  III.  Volume  II— 

Phase  III  Chances  to  User's  and  Programmer's  Manual.  ORI  Technical 
Report  645,  31  Marchl971, 
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TABLE  1 


AUTOMATED  DYNAMIC  IFRS  PROGRAMS 
AND  FILES 


Source  Program 

Compiled  Program  and 
Data  Files 

Name 

Length 

(Characters) 

Storage 

Units 

Name 

Length 

(Words) 

Storage 

Units 

DYNAM 

5344 

5 

DYNAM* 

3360 

6 

DYNAl 

12152 

10 

DYNAl* 

6904 

12 

DYNA2 

10856 

9 

DYNA2* 

6528 

11 

DYNA3 

8388 

7 

DYNA3* 

5640 

7 

DYNA4 

7020 

6 

DYNA4* 

5336 

7 

DYNA5 

8108 

7 

DYNA5* 

4720 

8 

WASRX 

9268 

8 

WASRX* 

5232 

12 

PTRSl 

6596 

6 

PTRSl* 

4056 

7 

PTRS2 

21524 

18 

PTRS2* 

XDATP 

WASRFILE 

DYNCOM 

DYNVAL 

8336 

1348^ 

1550 

4725 

5850 

21 

2 

5k/ 

15fe" 

19^/ 

^Characters . 
h/  Random  binary  files  . 

TABLE  2 


DYNAMIC  IFRS  PROGRAMS , DATA  FILES. 
AND  CALLING  SEQUENCE 


Program 

Entered 

from 

Transfers 

to 

Read 

Write 

Data  Initial 

izatlon 

DYNAM 

Terminal 

ILSRM 

— 

\LSR1 

LSRl 

DYNAM 

LSR2 

BAS  CAS 

SAVBCS  (level  3) 

LSR2 

LSRl 

DYNAM 

PIPE 

PIPES  (level  3) 

DYNAM 

LSR2 

WASRX 

— 

DYNCOM 

WASRX 

DYNAM 

PTRSl 

WASRFILE 

DYNCOM 

PTRSl 

WASRX 

PTRS2 

i PIPE  or 

— 

1 PIPES 

PTRS2 

PTRSl 

DYNAM 

WASRFILE 

DYNCOM 

DYNAM 

PTRS2 

DYNAl 

DYNCOM 

DYNCOM 

Dynamic  Simulation 

DYNAl 

DYNAM 

DYNA2 

DYNCOM 

— 

Terminal 

RUNDAT 

XDATP 

DYNA2 

DYNAl 

DYNA3 

— 

— 

DYNA3 

DYNA2 

DYNA4 

— 

DYNVAL 

DYNA4 

DYNA3 

DYNAl 

DYNVAL 

— 

DYNAl 

DYNA4 

( DYNA2 

— 

— 

IDYNA5 

— 

— 

DYNA5 

DYNAl 

I5R4 

I DYNVAL 

LSROUT 

\ DYNCOM 

LSR4 

DYNA5 

PART  2 

RUNDAT 

RUNWAY 

Update  Weekly  Aviation  Statistical  Report 

WASRX 

Terminal 

— 

BAS  CAS 

WASRFILE 

Student  Input/Recruitment  Module 

PTRSl 

Terminal 

PTRS2 

(PIPE 

— 

IBASCAS 

PTRS2 

PTRSl 

— 

WASRFILE 

WASRFILE 
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TABLE  3 

COMPUTER  PROGRAMS  DESCRIPTION  AND  RELATIONSHIP* 


Name 

Description 

DYNAM 

Transfers  control  to  other  programs  and  returns  from 
them  with  data  for  file  DYNCOM 

LSRl 

Inputs  and  modifies  LSR  training  phase  data 

LSR2 

Preliminary  check  and  modification  of  pipeline  data 

WASRX 

Accepts  and  stores  Weekly  Aviation  Statistic  Report 
data 

PTRSl 

Preliminary  program  for  Student  Input  module 

PTRS2 

Provides  various  options  to  set  up  weekly  student 
input  data  by  entry  phase 

DYNAl 

Sets  up  common  from  restart  file  (DYNCOM) , pre- 
liminary program  for  Dynamic  Simulation  module 

DYNA2 

Accepts  shock  parameters  (Shock  module) 

DYNA3 

Calculates  and  stores  weekly  student  flow  and 
utilization  (dynamic  simulation) 

DYNA4 

Provides  various  printout  options  of  the  simulation 

DYNA5 

Prepares  common  for  transfer  back  to  Static  IFRS 
program  LSR4 

DYNCOM 

Data  file  to  store  planning  factors  and  additional 
data  required  for  the  dynamic  simulation 

DYNVAL 

Data  file  to  save  the  results  of  the  dynamic  simulation 

WASRFILE 

Data  file  for  WASR  data  and  weekly  student  input 

XDATP 

Additional  training  phase  planning  factors  required  by 
the  Dynamic  Simulation  module 

* Additional  data  files  are  described  in  the  Static  IFRS  manuals. 
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II.  PROGRAM  DYNAM 


PROGRAM  DESCRIPTION 

2.1  The  purpose  of  program  DYNAM  is  to  provide  the  program  linkage  to 
other  programs  and  to  set  up  the  file  DYNCOM  for  a dynamic  IFRS  simulation. 

The  program  transfers  control  between  various  programs  to  gather  the  necessary 
data  for  file  DYNCOM.  It  also  gives  the  option  to  enter  the  Static  model 
instead  of  the  Dynamic  IFRS  model. 

2.2  Upon  entry,  a test  is  made  on  the  level  of  complexity  to  determine  if 

it  is  the  first  time  in  the  program.  If  this  is  the  first  time  (LEVLSR  = 0),  the  user 
is  requested  to  enter  a run  option  (1  = Static  IFRS,  2 = Dynamic  IFRS).  For  run 
option  1,  control  transfers  to  program  LSRM.  Otherwise,  the  user  is  requested 
to  enter  the  level  of  complexity  for  the  dynamic  run.  Then  control  is  transferred 
to  program  LSRl  which  in  turn  transfers  to  program  LSR2 . On  a dynamic  simula- 
tion run,  LSR2  transfers  control  back  to  DYNAM.  If  this  is  not  the  first  time 
in  the  program,  implying  the  above  procedure  was  previously  completed,  an- 
other test  is  made  on  IS (7)  to  determine  if  this  is  a re-entry  from  program  LSR2 
or  program  PTRS2.  If  IS^)  = 0,  indicating  a return  from  LSR2,  subroutine  COMDUMP 
is  called  to  write  the  planning  factor  data,  from  program  LSRl , onto  file  DYNCOM. 
Upon  return  from  subroutine  COMDUMP,  control  transfers  to  program  WARSX 
and  in  turn  runs  through  programs  PTRSl  and  PTRS2 . 

2.3  For  IS(7)  ^ 0,  implying  re-entry  from  program  PTRS2,  subroutine  MIX 
is  called.  This  subroutine  asks  the  user  for  the  initial  MIX  (percentage  of 
students  going  to  subsequent  training  phase)  and  saves  it  in  file  DYNCOM. 

Upon  returning  from  subroutine  MIX,  subroutine  COMDUMP  is  called  again  to 
write  on  file  DYNCOM,  indicating  the  restart  file  has  been  completely  initialized. 
Control  then  passes  to  program  DYNAl . 
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SUBROUTINE  COMDUMP 


2.4  The  primary  purpose  of  subroutine  COMDUMP  is  to  wixte  all  data  in 
the  common  area  of  storage  onto  file  DYNCOM.  Additional  Information  such  as 
time  and  date  are  also  written  into  the  file. 

2 .5  Upon  entry,  a test  on  the  argument  K1  is  made.  If  K1  = 1 , the  planning 
factors  saved  in  the  common  area  of  storage  from  program  LSRl  are  written  onto 
file  DYNCOM.  If  K1  =2,  the  first  and  second  records  of  DYNCOM  are  rewritten 
with  additional  data  to  indicate  the  file  has  been  completely  initialized  along  with 
the  time  and  date. 

SUBROUTINE  NOYES 

2.6  The  purpose  of  subroutine  NOYES  is  to  read  and  validate  a no  (N)  or 
yes  (Y)  response  from  the  terminal.  If  the  response  is  valid,  the  appropriate 
nonstandard  return  is  taken.  The  nonstandard  return  transfers  control  to  the 
proper  statement  in  the  calling  program.  Return  1 is  taken  for  a no  response, 
return  2 is  taken  for  a yes  response.  If  the  response  is  invalid,  the  user  must 
retype  it. 

SUBROUTINE  MIX 

2 .7  The  purpose  of  subroutine  MIX  is  to  read  in  the  preliminary  incidence 
matrix,  call  subroutine  PHASE  to  get  the  initial  MIX,  and  write  the  initial  MIX 
(incidence  matrix)  on  file  DYNCOM. 

2.8  Upon  entry,  the  array  XINC  is  read  from  the  file  DYNCOM.  This  array 
is  the  preliminary  incidence  matrix  (since  it  contains  only  ones  or  zeros)  set 
up  in  subroutine  ALLPIPE  in  program  PTRSl . Next  subroutine  PHASE  is  called 
sequentially  for  each  phase  to  let  the  user  enter  the  initial  MIX  percentages. 

2.9  The  program  then  gives  the  user  the  option  to  make  corrections  to  his 
previous  entries.  If  this  option  is  taken,  the  user  enters  the  phase  number, 
and  subroutine  PHASE  is  called  to  accept  the  correction.  Upon  return  from 
PHASE,  the  user  is  asked  for  the  next  phase  number  to  be  corrected.  An  entry 
of  zero  indicates  no  further  change.  Finally,  the  array  XINC,  which  is  modified 
by  PiiASE,  is  written  on  file  DYNCOM.  Control  returns  to  the  calling  program. 

SUBROUTINE  PHASE 

2.10  The  purpose  of  subroutine  PHASE  is  to  determine  if  a phase  is  a branch 
phase  (i.e. , if  graduates  of  that  phase  can  go  to  two  or  more  different  training 
phases)  and  ask  the  user  to  enter  the  percentage  of  graduates  going  to  each 
phase. 


2.11  Upon  entry  array  XINC  is  scanned  for  phase  I to  identify  any  branching . 
This  is  done  by  scanning  row  I of  XINC  to  find  two  or  more  positive  numbers . 

If  a positive  number  exists  in  column  J of  row  I,  this  means  that  graduates  of 
phase  I can  go  to  phase  J.  If  there  is  no  branching,  control  returns  to  the 
calling  program. 

2.12  If  branching  does  occur,  the  follow-on  phases  are  printed  for  the  user. 
The  percentage  of  students  going  to  each  phase  is  then  entered  and  validated. 

An  error  will  force  the  user  to  re-enter  all  the  values  again.  The  percentage 
values  are  then  stored  in  their  proper  location  in  array  XINC,  and  control  is 
returned  to  the  calling  program. 
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a.  Subroutine  COMDUMP 


Enter  NOYES 


Input 

Response 


Return  1 


Response  ? 


Return  2 


Response? 


Message 


m 

- 1 

1 

■ ^ 

1 

^ TABLE  4 

1 

1 PROGRAM  DYNAM  VARIABLE  DICTIONARY 

1 

'T 

1 i 

Location 

Variable 

Name 

1 

Dimension 

Description 

Common 

lY 

1 

Set  to  0 when  transferring  to  DYNAl 

Common 

ISW 

1 

Permanent  storage  for  the  level  of  com- 
plexity for  the  LSR  Generator 

Common 

SW 

2 

SW(1):  permanent  storage  for  annual 
fly  days 

SW(2):  permanent  storage  for  training 
weeks  per  year 

Common 

IS 

7 

IS(1):  level  of  complexity  indicator 
IS{2)  * 1:  pilot  training  system 
IS(2)  » 2:  NFO  training  system 
IS(3):  number  of  pipelines 
IS(4)-IS(6):  entry  phase  numbers 
IS(7)  ■ 0:  first  entry  into  program 
IS(7)  « 1;  re-entry  into  program 

Common 

NAME 

25,3 

Name  of  training  phase  ll/  (3  words 
or  12  characters  permitted) 

Common 

NPLA 

25,3 

Name  of  aircraft  types  for  ohase  I, 
j = 1 , 3^denotes  up  to  3 aircraft  types 

Common 

NFUEL 

25,3 

Fuel  type  for  phase  I,  aircraft  type  J 

Common 

NACD 

25,3 

Academic  instruction  types  for  phase  I 

Common 

ATP 

25 

Average  portion  of  phase  I a student 
attrite  completes 

Common 

WK 

25 

Length  of  training  phase  I 

Common 

TOD 

25 

Instructor  tour  of  duty  length  for  phase  I 

Common 

NAC 

25 

Number  of  aircraft  types  for  phase  I 
(must  not  exceed  3) 

Common 

NAD 

25 

Number  of  academic  instruction  types 
for  phase  I (^3) 

Common 

WX 

25,3 

Percent  flyable  weather  for  aircraft 
type  J in  phase  I 

TABLE  4 (Cont) 


Location 

Variable 

Name 

Dimension 

Description 

Common 

IBLANK 

1 

Space  " " 

Common 

NO 

1 

Letter  N " N" 

Common 

NYES 

1 

Letter  Y ”Y” 

Common 

NY 

1 

Switch  for  yes -no  input 

NY  » -1  previous  response  no,  ”N'* 

NY  ■ 1 previous  response  yes,  "Y" 

Common 

NPH 

1 

Number  of  training  phases  {<25) 

Common 

lER 

1 

Error  type  switch 

Common 

LEVLSR 

1 

Level  of  complexity  for  LSR  Generator 

Common 

IPH 

1 

Phase  number  of  particular  training 
phase 

Common 

WPY 

1 

Training  weeks  per  year 

Common 

AFD 

1 

Annual  fly  days 

Common 

KILL 

1 

Number  of  total  training  phases  deleted 
in  current  run  from  data  base 

Common 

IID 

1 

Temporary  storage  for  subroutine 
transfer 

Common 

FID 

1 

Temporary  storage  for  subroutine 
transfer 

Common 

KILLS 

25 

Phase  numbers  of  deleted  phases 

Common 

SI 

25 

Student  input  for  all  pipelines 

Common 

TSOUT 

25 

Student  output  for  all  pipelines 

Common 

SO 

25 

Student  output  for  particular  pipeline 

Common 

DUM 

25,62 

Equivalent  to  words  12-1561  (array  set 
up  in  subroutine  COMDUMP) 

Common 

XINC 

25,26 

Percent  of  students  in  phase  I entering 
branch  phase  J.  J = 26  identifies  terminal 
phases  (used  in  subroutine  MIX  and 
PHASE) 

TABLE  4 (Cont) 


1 

Location 

Variable 

Name 

Dimension 

Description 

PHASE 

P 

26 

Percentage  of  students  entering  Jth 
phase 

PHASE 

ISV 

26 

Ith  branch  phase 

NOYES 

N 

1 

Contains  a "Y"  or  "N"  for  a yes  or  no 
response 

^ I refers  to  row  dimension. 

2/ 

J refers  to  column  dimension. 

TABLE  5 

DYNAM  PROGRAM  AND  SUBROUTINE  DICTIONARY 


DYNAM 

Provides  program  linkage  to  set  up  the  DYNCOM  file  for 
entry  into  DYNAl 

COMDUMP 

Writes  data  on  file  DYNCOM 

NOYES 

Reads  yes  or  no  response  from  the  time-sharing  terminal 

MIX 

Prepares  the  initial  MIX  and  saves  it  on  DYNCOM 

PHASE 

Records  user  input  of  the  percentage  of  students  leaving  a 
branch  phase 

TABLE  6 

PROGRAM  DYNAM  USTING 


lOOC 

180C 

140 

160 

180 

200 

220 

240 

260 

280 

300C 

310C 

340 

360 

380 

400 

420 

440 

460C 

480 

500 

520 

540 

560 

580 

585 

600 


- - -PROGRAMt  DYNAM  (MAIN  DYNAMIC  IFRS) 

- - - FIRST  LINK  IN  DYNAMIC-IFRS 

COMMON  IY«ISV«SV(2)«IS(7)  i 

COMMON  NAME(25*3)#NPLA<25#3)#NFUEL(25>3)#NACD(25#3)#ATP(25), 
«VK(25)«T0D(25>*NAC(25>«NAD(25)« WX(25«3)«GAS(25#3)«AU(25«3>« 
«FU(25*3)*SFH(25#3)*FIH(25»3)*FTR(25j3)>FS0(25*3)#AM0(25#3)> 
«ASH(25«3)«AIH(25«3)«AITR(25«3)  ''  ^ 

COMMON  FUN(25#3)»FIHN(25^3)#FTRN(25#3)  \ 

COMMON  ICOMMA#IBLANK>NO#NYES*NY#NPH#IER#LEVLSR*IPH,WPY, 
*ArD#KILL#IID*FID#KILLS(25)#SI(25)#TS0UT(25),S0(25) 

I 

- - - TEST  FOR  FIRST  ENTRY  INTO  DYNAMIC-IFRS 

IF(LEVLSR*GT.O)GO  TO  100 
IP(IS(7).NE*0)G0  TO  100 
PRINT  900 

INPUT* I ( 

GO  T0(1*5)*I 
1 CHAIN"XLSRM4” 

- - - DYNAMIC  IFRS  - - - 
5 PRINT  700 
10  INPUT*LEVLSR 

IF(  (LEVLSR*GE.1).AND.(LEVLSR.LE.3>  )G0  TO  20 
PRINT  710 
GO  TO  10 
20  IS(1)  — 1 
ISV-LEVLSR 
CHA1N*‘XLSR1*" 


li 


M 


TABLE  6 (Cont) 


620C 

640C-  - - RETURN  FROM  LSR2 

660  100  CONTINUE 

680  1F(IS<7) .NE.0)60  TO  150 

700  IS(7)«1 

720  CALL  COMDUMP(l) 

740  CHAIN"WASRX*" 

760C 

780C  - - RETURN  FROM  PTRS2 
800  150  CALL  MIX 

820  IY=0 

840  CALL  C0MDUMP(2) 

860  CHAIN*’DYNA1*'* 

880C 

900C 

920  700  FORMAT ( //I OX# "DYNAMIC  IFRS"// 

940  *"  ENTER  LEVEL  OF  COMPLEXITY"/ 

960  A"  1 LIMITED  INSTRUCTI ONS-NO  MODIFICATIONS"/ 

980  A"  2 DETAILED  INSTRUCTIONS"/ 

1000  A"  3 MODIFY  PHASE  DATA  " ) 

1020  710  FORMAT!"  INVALID  REPLY  - RETYPE") 

1040  900  FORMAT <5X#" IFRS  III"// 

1060  A"  ENTER  RUN  OPTION"/"  1 STATIC  IFRS"/ 

1080  A"  2 DYNAMIC  IFRS  ") 

1100  END 


i: 

I'  i 
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TABLE  6 (Cont) 


1120 

1140 

1160 

1180 

1200 

1220C 

1240 

1260 

1280 

1300 

1320 

1340 

1360 

1380 

1400 

1420 

1440 

1460C 

1480 

1500 

1520 

1540 

1560 

1580 


1600 

1620 

1640 

1660 

1680 

1700 

1720 

1740 


a . Subroutine  COMDUMP 


SUBROUTINE  COMDUMPtKn 

COMMON  1Y/ISW,SW(2)#IS(7)»DUM<25*62) 

C OMMON  I C OMMA , I BLANK, NO, NYES , NY, NPH, I ER , LE VLSR , I PH, WPY 
A, AFD, KILL, I ID, FID, KILLS (25) 

FILENAME  T1,T2,T3 

T1 s”DYNCOM” 

T2»CLK(X)  ; T3*DAT(X) 

OPENFILE  T1 
SEKTDTO  1 
GO  TOC  100, 200), K1 

100  WRITE(T1 >T2,T3,K1,IY,ISW, (IS(I),1*1,7),NPH,LEVLSR,KILL 
SET(T1 >T0  4 
DO  120  J»l,62 

120  WRITECTl )(DUM(I, J),I=1,25) 

WRITE(Tl)  (KILLSCI ), 1-1,25) 

CLOSEFILE  T1  ; RETURN 

200  READ(T1 )(KILLS( J), J*l,25) 

SET(T1)T0  1 

WRITECTl )T2,T3,K1,IY,1SW,(IS( J), J-1,7),(KILLS( J), J-15, 17) 
WRITECTl )T2,T3 
CLOSEFILE  T1 
RETURN 5 END 


b . Subroutine  NOYES 


SUBROUTINE  NOYES (♦,*) 

ALPHA  N 
10  INPUT, N 

I F ( N . EQ . "N” )RETURN 1 

I F ( N . EQ . "Y" ) RETURN2 

PR I NT, "INVALID  REPLY  - RETYPE” 

GO  TO  10 

END 
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TABLE  6 (Cont) 
c . Subroutine  MIX 


1760 

1780 

1800 

1820 

1840 

1860 

1880 

1900 

1920C 

1940 

1960 

1980 

2000C 

2020 

2040 

2060 

2080 

2100 

2120 

2140 

2160 

2180 

2200 

2220 

2240C 

2260 

2280 

2300 

2320 

2340 

2360 

2380 

2400 

2420 

2440 

2460 

2480 

2500 

2520 


SUBROUTINE  MIX 

COMMON  NPH,ISW#SW(2),ISC7)#NAME(25*3)*XINC<25,26> 

FILENAME  T1 

T1»"DYNC0M" 

SET(T1>T0  127 
M»NPH+ 1 
DO  20  I»l«26 

20  READCTl  XXINCC  J,  I )*  Jal,25) 

PRINT  750 
DO  100  I=UNPH 
100  CALL  PHASE(I«0) 


PRINT  720 

CALL  N0YES(S200»S120> 

120  PRINT  730 
130  INPUT/ I 

IF(I .EQ.OJGO  TO  200 

IF(  (I .LT.l ) .OR.CI .GT.NPH) 

CALL  PHASE (1,1) 

PRINT  735 
GO  TO  130 
140  PRINT  740 
GO  TO  130 


>G0  TO  140 


200  SET(T1)T0  127 
DO  220  1=1, M 

220  WRITE(T1  XXINCC  J,I  ),  J=l,25) 

CLOSEFILE  T1 
RETURN 

720  FORMATC  ANY  CORRECTIONS(Y,N>") 

730  FORMATC  ENTER  PHASE  NUMBER  OR"/ 

*"  0 FOR  NO  FURTHER  CORRECTIONS  "> 

735  FORMAT ("+NEXT") 

740  FORMAT ("  INVALID  REPLY  - RETYPE") 

750  FORMATC/"  ENTER  AN  INITIAL  MIX  FOR  THE  FOLLOWING 

A BRANCH  PHASES"/"  THE  VALUES  ARE  PERCENTAGES ( 100X=1 .0) 
A GOING  TO  THE  FOLLOWING  PHASES"//) 

END 


TABLE  6 (Cont) 
d.  Subroutine  PHASE 


2540 

2560 

2580 

2600 

2620 

2640 

2660 

2680 

2700 

2720 

50 

2740 

2760 

2780C 

- - 

2800 

2820 

2840 

2860 

2880 

60 

2900 

2920 

2940C 

2960 

100 

2980 

105 

3000 

3020 

3040 

3060 

120 

3080 

125 

3100 

3120 

130 

3140 

3160C 

3180 

140 

3200 

145 

3220 

150 

3240 

200 

3260C 

3280 

700 

3300 

710 

3320 

720 

3340 

730 

3360 

740 

3380 

760 

3400 

SUBROUTINE  PKASE<1*KX> 

COMMON  NPH>lSW#SWt2)* ISC7)*NAME<25>3)#XINC(S5>26) 
DIMENSION  P<26>«ISV(26) 

NC-0 
M-NPH+1 
DO  50  J*l#M 

IFIXlNCa^  J)  .LE. 0.0)00  TO  50 

NC«NC-M 

ISV(NC)»J 

CONTINUE 

IFt  CNC.LT.2) .AND.CKX.EQ.l > )G0  TO  200 
IF(NC.LT.2)G0  TO  150 
FOUND  A PHASE  WITH  BRANCHING 
PRINT  700*I#(NAME(I, J), Jal»3) 

IF(ISV<NC) .EQ.M)GO  TO  60 
PRINT  710#(ISVC J)* J»1»NC) 

GO  TO  100 
NCl-NC-1 

PRINT  710#CISV(J), J*1,NC1 ) 

PRINT  720 

PRINT  730#NC 
INPUT, CPC J)*J=1>NC) 

S»0. 

DO  125  J*1,NC 
IFCPCJ))130,120,125 
PC J)»0. 000001 
S»S+PC J) 

IFC  CS. GT. 0.97) .AND.CS.lt. 1 .03)  )G0  TO  lAO 
PRINT  7A0 
GO  TO  105 

DO  145  Jal.NC 
XINCC1,1SVC J))*PCJ) 

RETURN 
PRINT  760 

FORMATC"  PHASE  **,I2,"  I ",3A4,”  LEADS  TO") 
FORMATC"  PHASES  ",1013) 

FORMAT C"  AND  AN  OUTPUT  PHASE") 

FORMATC"  INPUT  ",I2,"  VALUES") 

FORMATC"  INVALID  REPLY  - RETYPE") 

FORMATC"  NO  MIX  REQUIRED"//) 
return; END 
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III.  PROGRAM  DYNAl 


PROGRAM  DESCRIPTION 

3.1  The  purpose  of  PROGRAM  DYNAl  is  to: 

• Read  various  data  files  and  set  up  common  for 
a dynamic  run 

• Accept  the  projection  range  entered  by  the  user 

• Provide  the  option  of  modifying  the  percentage  of 
students  leaving  a branch  phase  (i.e.  , change 
the  MIX) 

• Provide  for  transferring  into  Static  IFRS. 

3.2  Upon  entry,  a test  is  made  to  determine  if  this  is  the  first  time  in  the 
program.  If  it  is  (lY  = 0),  subroutines  NEWCOM  and  MONTH  are  called  sequentially 
If  lY  ^ 0,  the  subroutines  are  not  called.  Then  the  user  is  requested  to  enter  the 
projection  range  (a  maximum  range  of  26  weeks  is  permitted).  Common  variable 

NX (5)  is  then  set  up  to  indicate  the  following  projection  range  information: 

• NX  (5)  = 0 indicates  the  first  run 

• NX{5)  = -1  indicates  a run  with  a new  projection 
range 

• NX(5)  = 1 indicates  an  additional  run  with  the  first 
week  of  the  current  range  equal  to  the  first  week  of 
the  previous  range. 
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3.3  If  the  user  enters  0,0  for  the  range, he  is  given  the  option  to  go  into 

the  Static  IFRS.  If  this  option  is  taken,  he  is  requested  to  enter  the  week  number 
to  be  analyzed  (this  week  number  must  be  within  the  last  projection  range)  and 
is  given  the  option  to  print  a summary  for  all  phases  for  that  week.  If  he  wants 
this  summary,  a print  switch  is  set  (ISW  = 1).  Control  then  transfers  to  DYNA5 . 

3.4  If  it  is  a dynamic  simulation,  a test  is  made  on  the  projection  range  to 
determine  if  subroutine  MONTH  should  be  called  to  print  out  a revised  month- 
week  array.  Then  the  user  is  given  the  option  to  print  the  student  input  of  the 
entry  phases  for  the  time  interval.  Following  this,  subroutine  MIX  is  called. 

Upon  return,  the  variable  Indicating  the  number  of  times  in  the  program  (lY)  is 
updated  by  1 , and  control  transfers  to  DYNA2 . 

SUBROUTINE  NEWCOM 

3.5  The  purpose  of  subroutine  NEWCOM  is  to  read  several  data  files  for 
data  needed  in  the  dynamic  run  (i.e. , aircraft  data,  planning  factor  data,  etc.). 

3.6  Upon  entry,  the  first  record  of  file  DYNCOM  is  read.  A test  is  then 
made  on  the  variable  K1  to  see  if  the  file  is  completely  updated  (K1  = 2).  If  K1  = 1 , 
indicating  incomplete  update,  the  user  is  told  that  the  restart  file  was  "incom- 
pletely modified,"  and  is  given  the  date  it  was  last  modified.  He  is  then  given 
the  option  to  make  a run  with  this  data.  If  a no  response  is  given,  the  program 
stops. 

3.7  If  the  file  is  completely  updated,  a second  test  is  made  on  ISWT  to 
determine  if  it  is  a restart  run.  For  ISWT  = 0,  the  user  is  told  when  the  file 
DYNCOM  was  last  modified  and  is  asked  if  he  wants  to  use  this  file.  If  a no 
response  is  given,  the  program  stops.  At  this  point,  the  level  of  complexity 
(LEVLSR)  is  set  equal  to  2 . If  ISWT  ^0,  or  if  the  user  in  the  above  cases  decides 
to  continue,  the  program  proceeds  to  read  the  file  DYNCOM. 

3.8  A check  is  then  made  to  see  if  the  run  is  for  the  pilot  or  NFO  training 
system.  For  IS(2)  = 1,  indicating  pilot,  the  file  XDATP  is  accessed.  IS(2)  = 2 
meaning  NFO,  the  file  XDATN  is  accessed.  Next,  the  subroutine  WEATH  is  called 
to  read  weather  factor  data,  and  upon  return  control  transfers  back  to  the  main 
program. 

SUBROUTINE  WEATH 

3.9  The  purpose  of  subroutine  WEATH  is  to  read  the  proper  data  file  for 
aircraft  weather  factors  and  perform  various  checks  to  ensure  the  data  are 
correct . 
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3.10  Upon  entry  IS(2)  is  checked  to  determine  the  training  system  for  the 
run.  If  IS(2)  = 1,  the  file  RUNDAT  is  opened.  For  IS(2)  = 2,  the  file  NFORUNDA 
is  opened.  Then  the  array  WEATHR  is  initialized  to  zero. 

3.11  For  each  phase  containing  aircraft,  the  program  reads  the  weather 
factor  for  each  aircraft  type  used  in  that  phase.  A test  is  made  on  the  variable 
NAC(I)  (number  of  aircraft  in  phase  I),  to  determine  if  there  are  any  aircraft  in 
the  phase.  When  reading  the  file,  various  checks  are  made  to  validate  the  data. 
For  example  names,  aircraft  types  and  numbers  are  compared  with  the  phase 
data  read  from  BASCAS.  Should  these  data  be  inconsistent,  an  error  message  is 
printed  and  the  run  is  terminated.  When  all  data  have  been  read,  control  is 
returned  to  the  calling  program . 

SUBROUTINE  MONTH 

3.12  The  purpose  of  subroutine  MONTH  is  to  set  up  and  print  out  MON. 

This  array  Indicates  which  weeks  fall  in  each  month  for  a 52-week  time  interval. 
The  user  must  input  the  month  and  week  corresponding  to  the  first  week  of  the 
simulation.  The  number  of  weeks  in  each  month  is  recorded  in  the  array  MX. 

Upon  entry,  a test  is  made  on  the  array  MON  to  determine  if  the  month  and 
weeks  have  been  previously  calculated  (MON(2,13)  0).  If  so,  the  program  com- 

putes data  for  a new  year  based  upon  the  previous  computations.  If  they  have 
not  been  previously  computed,  the  user  is  requested  to  enter  the  week  of  month 
(1-5)  and  month  (1-12)  that  corresponds  to  week  1 for  this  run.  The  input  is 
then  validated.  Using  this  as  the  base  week  and  month,  the  program  computes 
the  week  numbers  in  each  month  for  the  next  52  weeks  and  prints  the  results . 
Control  is  then  returned  to  the  main  program . 

SUBROUTINE  MIX 

3.13  Subroutine  MIX  performs  similar  functions  as  outlined  in  program  DYNAM, 
with  a few  exceptions.  The  user  is  given  the  option  of  printing  the  current  MIX 

at  the  branch  phases.  If  this  option  is  taken,  print  indicator  IFLAG  is  set  to  1 , 
and  subroutine  PHASE  is  called  sequentially  for  each  phase.  The  user  is  then 
given  the  option  to  change  the  MIX  for  this  time  Interval.  This  change  is  saved 
in  common  and  will  be  used  on  subsequent  projection  ranges  until  changed  again. 
The  user  may  also  correct  any  entries. 

SUBROUTINE  PHASE 

3.14  Subroutine  PHASE  is  similar  to  that  used  in  program  DYNAM  with  one 
exception— it  prints  the  current  MIX  at  the  branch  phases.  When  the  argument 
IFLAG  = 1 , the  subroutine  will  print  the  MIX. 
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a.  Subroutine  NEWCOM 


FIGURE  3 (Com) 
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b.  Subroutine  MONTH 


FIGURE  3 (Cont) 
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TABLE  7 

PROGRAM  DYNAl  VARIABLE  DICTIONARY 


Location 

Common 

Common 

Common 

Common 

Common 

Common 

Common 


Common 


Variable 

Name 

Dimension 

Description 

lY 

1 

Program  entry  switch 

lY  = 0:  first  entry  in  program 

lY  > 0;  re-entry  into  program 

When  transferring  to  DYNA5 , lY  is  the 

week  to  be  analyzed  in  Static  IFRS 

ISW 

1 

Number  of  entry  phases . Also  a print 
switch  for  return  to  Static  IFRS 
ISW  = 1 : print  summary 
ISW  » 0:  no  print 

NPH 

1 

Number  of  training  phases  (<  25) 

LEVLSR 

1 

Level  of  complexity  for  Dynamic  Simula- 
tion module  (set  to  2 in  NEWCOM) 

KILL 

1 

Number  of  total  training  phases  deleted 
in  current  run  from  data  base 

IS 

10 

IS(1)  to  IS (7)  see  program  DYNAM,  IS  (8) 
to  IS(IO)  not  used 

NX 

10 

NX{1):  first  week  of  current  projection 
range 

NX(2);  last  week  of  current  projection 
range 

NX(3):  first  week  of  previous  projec- 
tion range 

NX(4):  last  week  of  previous  projec- 
tion range 

NX(5)  = 0:  first  projection  range,  i.e. , 
first  run 

NX(5)  = 1:  same  projection  range  or 
increased  size  of  the  previous  range 
NX(5)  = -1:  new  projection  range 
NX(6):  number  of  shock  parameters 
entered 

NX(7)-NX(10):  unused 

MON 

1 

2,13 

Month  number  and  beginning  week  num- 
ber for  1 3 months 
I « 1:  denotes  month 
1 = 2:  denotes  first  week  of  month 

E 

\ 

> vi 


h 

n 

t . 

$ 


t 


f *• 

i?*, 

rfr, 


TABLE  7 (Cont) 


Location 

Variable 

Name 

Dimension 

Description 

Common 

NAME 

25,3 

Name  of  training  phase  I (3  words  or  12 
characters  permitted) 

Common 

NPLA 

25,3 

Name  of  aircraft  types  for  phase  I, 

J ■ 1 , 3 denotes  up  to  three  aircraft  types 

Common 

NAC 

25 

Number  of  aircraft  types  for  phase  I 
(must  not  exceed  3) 

Common 

IWPS 

53,3 

Storage  of  shock  parameter  set  I, 

J=  1,  3 denotes  phase,  week,  shock 
variable 

Common 

VALUE 

53,3 

Storage  of  shock  parameter  set  I, 
1=1,3  denotes  value  1 , value  2 , 
value  3 

Common 

FACTRl 

25,4 

Planning  factor  value  for  phase  I 
J = 1 , 4 denotes  attrition  rate,  phase 
duration  in  weeks , days  scheduled 
to  fly  per  week,  and  travel 

Common 

FACTR2 

25,3,6 

Planning  factor  value  for  phase  I, 

1=1,3  denotes  up  to  three  aircraft 
types . K » 1 , 6 denotes  aircraft  utilization 
tion,  average  hours  to  train  student 
for  aircraft,  instruction  utilization, 
average  hours  to  train  student  for 
Instructor,  aircraft  percent  availability. 
Instructor  percent  availability 

Common 

WEATHR 

25,12,3 

Aircraft  weather  factor  for  phase  I, 
1=1,  12  denotes  12  months;  K = 1 , 3 
denotes  up  to  three  aircraft  types 

Common 

WASR 

25,8 

Weekly  aviation  statistical  report  data 
for  phases  I,  J = 1,  8 denotes  number  of 
students  on  board  at  end  of  week , student 
output  at  end  of  week,  number  of  aircraft 
assigned  by  aircraft  type,  number  of 
Instructors  assigned  by  aircraft  type 

I 

I 

I 
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TABLE  7 (Com) 


Location 

Variable 

Name 

Dimension 

Description 

Common 

SI 

100,3 

Student  input  for  week  I,  entry  phase  J 
denotes  up  to  three  entry  phases 

Common 

DUMMY 

25,6 

Permanent  storage 

NEWCOM 

ISWT 

1 

Program  entry  switch 

ISWT  = 0:  restart  run 

ISWT  > 0:  entry  from  program  DYNAM 

PHASE 

IFLAG 

1 

Print  switch: 

IFLAG  « 1:  print  current  MIX 
IFLAG  = 2:  no  print 

► 

Si 
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TABLE  8 

DYNAl  PROGRAM  AND  SUBROUTINE  DICTIONARY 

DYNAl  Provides  program  linkage  to  read  various  data  files  and  sets 

up  common 

NEWCOM  Reads  several  data  files  for  data  needed  in  the  dynamic  run 

MIX  Provides  user  options  on  printing  and  changing  the  MIX 

phase  Accepts  and  prints  MIX  at  branch  phases 

WEATH  Reads  proper  data  file  for  aircraft  weather  factors 

Computes  week  and  month  numbers  for  52  weeks 


MONTH 


TABLE  9 

PROGRAM  DYNAl  USTING 


lOlC 

121 

141 

161 

181 

201 

221 

241 

261C 

281 

301 

321 

341 

361 

381 

401 

421 

441 

461 

481 

501 

521 

541 

561 

581 

601C 

621 

641 

661 

681 

701 

721 

741 

761 

781 

801 

810 

812 

814 

816 

818 

841 

861C 


- PROGRAM*  DYNAl 

COMMON  IY«ISV>NPH«LEVLSR«KILL«IS(10)«NX( 10>«M0N(2,13> 
COMMON  NAME(25«3)«NPLA(25<3>«NAC(25)«I WPS(53«3>« 
ftVALUE(53*3)#FACTRl <25#4)#FACTR2(25#3»6)#WEATHRC25* 12,3)» 
«VASR(25«8>*XINC(25«26) 

COMMON  SI(100#3)*DUMMY(25#6) 

DIMENSION  PHAZ(2>;  ALPHA  PHAZ 
DATA  PHAZ/”  *PH”,”ASE  ”/ 

IFtlY.NE.OlGO  TO  5 
CALL  NEVCOM 
M0N(2«13>-0 
NX( 1 )-0;NX(2)>0 
CALL  MONTH 

5 PRINT  700#NX< 1 ),(NX(2)+1 ) 

10  INPUT#M1#M2 

IF(  (Ml .EQ.0>*AND.(M2.EQ.0>  )G0  TO  100 
IF(  (Ml .LT.l >.0R.(M2.LE.M1 > >G0  TO  20 
IF(  (M2-M1 ).GT.26)G0  TO  20 
IF(M1  .EQ.NXd  )>NX(5)«1 
IF(M1 .EQ.(NX(2)+1 ))NX(5)«-1 
IF(IY.EQ.0)NX(5)*0 

IF(  (Ml  .EQ.NXd  )>.0R.(M1  .EQ.(NX(2>-i-l  ))  )G0T0  30 
20  PRINT  710 
GO  TO  10 

30  NX(3)»NX(1) 

NX(4)=NX(2) 

NX( 1 )«M1 
NX(2)aM2 

IF(NX(10).EQ.2>G0  TO  40 

1F(  (Ml  .GT.M0N(2«13)>.(»1.(M2.GT.M0N(2»13>)  >CALL  MONTH 
40  PRINT  720 

CALL  NOYES (S70> $50) 

50  PRINT  730«(PHAZ«IS( J-f3>« J«1«ISW> 

DO  55  I«M1«M2 

IFd  .GT.IOOIGO  TO  53 

PRINT  740«I«(SI(I«J)« J>1«ISV) 

GO  TO  55 

53  PRINT  740#I#(SI(100* J)#J«1,ISW) 

55  CONTINUE 
PRINT*”  ” 
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TABLE  9 (Cont) 


881 
901 
921 
94 1C 
961 
981 
1001 
1021 
1041 
1061 
1081 
1101 
1121 
1141 
1161 
1181 
1201C 
1221 
1241 
1261 
1281 
1301 
1321 
1341 
1361 
1381 
1401 
1421 
1441 
1461 
1481 


70  CALL  MIX 
IY=IY+1 
CHAIN"DYNA2*" 

100  PRINT  800 

CALL  N0YES($200,$1 10) 
no  PRINT  810jNX(’.  ),NX(2) 

120  INPUT^IY 

IF<CIY.GE.NXC1)).AND.(IY.LE.NXC2)))G0  TO  130 
PRINT  710 
GO  TO  120 
130  ISW=0 

PRINT  820 

CALL  N0YESC$150,$140) 

140  ISW=1 

150  CHAIN”DYNA5*" 

200  STOP 

700  FORMAT (/••  ENTER  FIRST  AND  LAST  WEEK  NO.  OF  ", 

*"PROJECTION  RANGE(XX,XX)"/ 

*"  (FIRST  ENTRY  MUST  BE  ",I3,"  OR  ",I3,")  ") 

710  FORMAT ("  INVALID  REPLY  - RETYPE") 

720  FORMATC/"  PRINT  STUDENT  INPUT  FOR  THIS  TIME  INTERVAL(Y,N)") 

730  FORMAT</"  WEEK", 3(2A4, 12 ) ) 

740  F0RMAT(I4,3F9.1 ) 

800  FORMATC/"  GO  TO  STATIC  IFRS  FOR  FACILITIES,"/ 

*"  REQUIREMENTS  AND  COST  ANALYSIS  (Y,N)") 

810  FORMATC  ENTER  WEEK  TO  BE  ANALYZED.  BETWEEN", 

*13,"  AND", 13,"  (XX)") 

820  FORMATC  SUMMARY  PRINT  OUT  FOR  ALL  PHASES  FOR  THAT  WEEK  (Y,N)7 
END 
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TABLE  9 (Cont) 
a.  Subroutine  NEWCOM 


1501 

1521 

1541 

1561 

1581 

1601 

1621 

1641 

1661 

1681 

1701 

1721 

1741 

1761 

1781 

1801 

1821 

1841 

1861C 


\ SUBROUTINE  NEWCOM 

POMMON  IY#ISW>NPH,LEVLSR#KILL*ISUO)*NX(  10),M0N(2#  13) 
COMMON  NAME(25#3)*NPLA(25#3),NAC(25)#IWPS(53*3), 
*VALUE(53»3)*FACTR1(25*4)#FACTR2(25»3#6)#WEATHRC25*12,3), 
«VASR(25«8)«XINC(25«26) 

COMMON  SK100>3) 

FILENAME  T1#T2,T3 
DlJffiNSION  TITLE(25) 

ISVT-ISW 

Tl«"DyNCOM" 

SEKTDTO  1 

READ(T1)T2#T3#K1,IY#ISW*  (IS(  J)*  J*W7)#NPH#LEVLSR*K1LL 

IFCKl .EQ.l )G0  TO  300 

IF(ISWT.NE.O)GO  TO  30 

PRINT  700,T2,T3 

CALL  NOYES (S350«S20) 

20  CONTINUE 
LEVLSR»2 
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TABLE  9 (Cont) 
Subroutine  NEWCOM  (Cont) 


a. 


IBRIC 

- - 

-READ  ARRAYS:  NAME>NPLA,NAC 

1901 

30 

SEKTl  )T0  4 

1981 

DO  35  1=1,3 

19A1 

35 

READdl  )(NAME(  J,I  J=l,85) 

1961 

DO  38  1=1,3 

1981 

38 

READdl  )(NPLA(  J,  I ),  J=1 ,25) 

8001 

SETtTDTO  19 

2021 

READdl  )<NAC(  J),  J=l,85) 

80A1C 

- - 

-SET  UP  FACTRl  - (PARTIALLY) 

2061 

SET(T1)T0  17 

208  iC 

- - 

-PHASE  DURATI0N( WEEKS) 

2101 

READ(T1 )(FACTR1 ( J,2), J=l,25) 

8121C 

- - 

SET  UP  FACTR2  ( SFH  + FIH) 

2141 

SET(T1 )T0  33 

2161 

DO  56  1=1,3 

8181 

56 

READ(T1 )(FACTR8(J,I,3),  J=l,25) 

2201 

DO  59  1=1,3 

8221 

59 

READCTl )(FACTR8( J,I,4), J=l,25) 

824 1C 

- - 

-READ  WASR  DATA 

8261 

SET(T1)T0  101 

2281 

DO  80  1=1,8 

2301 

80 

READ(T1 )(WASR( J,I ), J=l,25) 

8321C 

- - 

-STUDENT  INPUT  + TRAVEL 

8341 

SET(T1)T0  155 

2361 

READCTl )( FACTRl (I, 4), I =1,25) 

8381 

DO  95  K=l,3 

8401 

N=0 

8421 

DO  90  1=1,4 

2441 

READ(T1 )(SI(J+N,K), J=l,25) 

2461 

90 

N=N+25 

8481 

95 

CONTINUE 

2501 

2581C 

CLOSEFILE  T1 

39 


TABLE  9 (Cont) 

a.  Subroutine  NEWCOM  (Cont) 


2541C-  - - READ  IN  EXTRA  DATA  (PHASE  ATR, DAYS/WEEK  FLYING 
256 1C  - - -AND  X A/C  AVAIL.  AND  * INSTR  AVAIL  + WEEKLY  VALUES 
2581  IF(IS(2) .EQ.l )T1="XDATP" 

2601  IF(IS(2) .EQ.2)T1=”XDATN” 

2621  OPENFILE  Tl;REWIND  T1 

26A1  READ(T1#780>IL 

2661  DO  100  I=1#NPH 

2681  READ(T1#780)IL,K*FACTR1(I,1 ),FACTRl(I#3) 

2701  READ(TU780)IL#  (FACTR2(  I > J,  5) * J=1  > 3 ) 

2721  READ(T1#780)IL>(FACTR2(I# J#6)* J*1 j3) 

2741  READCT1#780>IL,(FACTR2(I> J, 1 J»l,3) 

2761  100  READ(T1#780)IL#(FACTR2CI> J,2), J=l,3) 

2781  CLOSEFILE  T1 

280 1C  - - -READ  MONTHLY  WEATHER  FACTORS (RUNDAT) 

2821  CALL  WEATH 

2841  RETURN 

2861C 

2881  300  PRINT  750,T2,T3 

2901  READ(T1 )T2,T3 

2921  PRINT  760,T2#T3 

2941  CALL  N0YES(S350#*20) 

2961  350  STOP 

2981  700  FORMAT (••  THIS  IS  A RESTART  DYNAMIC  RUN”/ 

3001  «”  THE  RESTART  FILE  WAS  LAST  MODIFIED  AT  ”#A8# 

3021  *”  ON  ",A8/ 

3041  A”  DO  YOU  WANT  TO  USE  THIS  FILE(Y^N)”) 

3061  750  FORMATC//”  ♦ ♦ ♦ THE  RESTART  FILE  HAS  BEEN”/ 

3081  *”  INCOMPLETELY  MODIFIED  AT  ”>A8#”  ON  ”/A8) 

3101  760  FORMAT(//”  THE  LAST  COMPLETE  MODIFICATION  OCCURRED 

3121  « AT  ”#A8>”  ON  ”,A8//”  USE  THE  DATA  ANYWAY(Y#N>”) 

3141  780  FORMAT(V) 

3161  END 


TABLE  9 (Cont) 
b.  Subroutine  MIX 


3181 

SUBROUTINE  MIX 

3201 

COMMON  IY*ISW#NPH#LEVLSR,KILL> IS( 10)>NX( 10)#M0N(2, 13) 

3221 

COMMON  NAME(25>3)*NPLA(25#3),NAC(25)»I WPS(53*3)> 

3241 

* VALUEt  53 . 3 ) * FACTR 1(25*4), FACTR2 (25,3,6), WEATHR( 2 5,12,3) 

3261 

*WASR(25,8),XINC(25,26) 

3281 

FILENAME  T1 

3301 

IF(IY.NE.O)  GO  TO  10 

3321 

T1  = "DYNCOM" 

3341 

OPENFILE  T1 

3361 

SET(T1)T0  127 

3381 

M=NPH+1 

3401 

DO  5 1 = 1, M 

3421 

5 

READ(T1 )(XINC( J, I ), J=l,25) 

3441 

CLOSEFILE  T1 

3461 

10 

I FLAG  =0 

3481 

PRINT, "PRINT  CURRENT  MIX  AT  BRANCH  PHASES(Y,N)" 

3501 

CALL  N0YES($50,$15) 

3521 

15 

IFLAG  = 1 

3541 

DO  20  I=1,NPH 

3561 

CALL  PHASE (I, 0,1  FLAG) 

3581 

20 

CONTINUE 

3601 

50 

PRINT  700 

3621 

IFLAG  = 0 

3641 

CALL  NOYES ($200, $70) 

3661 

70 

PRINT  750 

3681 

DO  100  1=1, NPH 

3701 

100 

CALL  PHASE(I,0,IFLAG) 

372 1C 

9 
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TABLE  9 (Cont) 
b.  Subroutine  MIX  (Cont) 


t . 


3741 

PRINT  720 

3761 

CALL  NOYES ($200«$ 120) 

3781 

120  PRINT  730 

3801 

130  INPUT^I 

3881 

IFCI.EQ.0)G0  TO  800 

3841 

IF(  (I .LT.l ) .OR.CI .GT.NPH)  )G0T0 

140 

3861 

CALL  PHASE(I«1«IFLAG) 

3881 

PRINT  735 

3901 

GO  TO  130 

3921 

140  PRINT  740 

3941 

GO  TO  130 

396 1C 
3981 

200  RETURN 

4001 

700  FORMATt/”  CHANGE  THE  MIX  FOR  THIS 

TIME  INTERVALCY.N)”) 

4081 

720  FORMATC"  ANY  CORRECTI ONSCY»N)*' ) 

4041 

730  FORMAT C"  ENTER  PHASE  NUMBER  OR"/ 

4061 

A"  0 FOR  NO  FURTHER  CORRECTIONS  ”) 

4081 

735  FORMATC"+NEXT") 

4101 

740  FORMAT ("  INVALID  REPLY  - RETYPE") 

4121 

750  FORMATf/"  ENTER  MIX  PERCENTAGE  VALUESC 100X=1 .0)  FOR  THE”/ 

4141 

A”  FOLLOWING  BRANCH  PHASES.") 

4161 

END 

42 


TABLE  9 (Cont) 
c.  Subroutine  PHASE 


4181 

4201 

4221 

4241 

4261 

4281 

4301 

4321 

4341 

4361 

4381 

4401 

4421 

4441 

4461 

448 1C 

4501 

4521 

4541 

4561 

4581 

4601 

4621 

4641 

4661 

4681 

4701 


SUBROUTINE  PHASECI ,KX* IFLAG) 

COMMON  IY,1SW,NPH#LEVLSR*KILL>IS( 10>,NX( 10)>M0N(2,1 
COMMON  NAME(25*3),NPLA(25#3),NACC25)» I WPS<53,3># 
«VALUEt53>3>^FACTRl (25#4),FACTR2(25,3>6)>WEATHH(25, 1 
«VASR<25*8)«XINC(25«26) 

DIMENSION  P(26),ISV(26) 

NC»0 
MaNPH+1 
DO  50  JaUM 

IF(XINC<1# J) .LE.O.O)GO  TO  50 
NC=NC+1 
1SV(NC)=J 
50  CONTINUE 

IF(  CNC.LT.2).AND.CKX.Ee.l ) )G0  TO  200 
IF(NC.LT.2)G0  TO  150 
- FOUND  A PHASE  WITH  BRANCHING 
PRINT  700#I#CNAME(I#J)# J=l*3> 

IFdSVtNC)  .EQ.M5G0  TO  60 
PRINT  710>(ISV( J), J=1,NC) 

GO  TO  90 
60  NC1=NC-1 

PRINT  710* CISV(J),J=1#NC1 ) 

PRINT  720 

90  IF(IFLAG.EQ.O)  GO  TO  100 

PRINT  750*(XINCn>ISV(K)  J*K*1*  J) 

PRINT,"  ” 

RETURN 
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c.  Subroutine  PHASE  (Cont) 


1 


A721 

100 

PRINT  730*NC 

4741 

105 

INPUT. <P(J),J«1, NO 

i. 

4761 

S»0. 

} 

i' 

4781 

DO  125  J»1.NC 

I 

4801 

IF(P( J))130.120.125 

4821 

120 

P<J)«0. 000001 

i) 

4841 

125 

S«S+P< J) 

t 

4861 

1F(  (S.GT.0.97) .AND.tS.LT.l .03) 

)G0  TO  140 

4881 

130 

PRINT  740 

4901 

GO  TO  105 

4921C 

4941 

140 

DO  145  J-l.NC 

'i 

i ^ 

4961 

145 

XINC(I.ISV(J))«P(J) 

4981 

150 

RETURN 

5001 

200 

PRINT  760 

i 

502 1C 

{ 

5041 

700 

FORMAT C"  PHASE  ".IP."  : ".GAA.” 

LEADS  TO") 

5061 

710 

FORMATC"  PHASES  ”.1013) 

5081 

720 

FORMAT <’•  AND  AN  OUTPUT  PHASE”) 

5101 

730 

FORMATC*  INPUT  ".12.”  VALUES”) 

5121 

740 

FORMATC”  INVALID  REPLY  - RETYPE” 

) 

5141 

750 

FORMATC”  PERCENTAGE". 10F6. 3) 

5161 

760 

FORMATC"  NO  MIX  REQUIRED”//) 

5181 

return; END 

\ 

i: 


TABLE  9 (Cont) 
d.  Subroutine  WEATH 


5201  SUBROUTINE  WEATH 

5221  COMMON  I Y# ISW»NPH,LEVLSR* KILL# I S( 10 ) * NX( 10) #M0N(2, 1 3) 

5241  COMMON  NAME(25# 3 ) #NPLA(25* 3 ) #NAC(25) # I WPS( 53# 3 ) # 

5261  AVALUEC53#3)#FACTR1 (25#4)#FACTR2(25#3#6># WEATHRC25#12#3># 

5281  *WASR(25#8)#XINC(25#26) 

5301C 

5321  DIMENSION  NAMEP( 3 ) # I AFT( 3 ) 

5341  FILENAME  RUN 

5361  IF(1S(2) .EQ.l )RUN=”RUNDAT" 

5381  1F(1S<2) .EQ.2)RUN=”NF0RUNDA” 

5401  OPENFILE  RUN  ; REWIND  RUN 

5421  DO  150  K=l#3 

5441  DO  150  J=l#12 

5461  DO  150  I=1#NPH 

5481  150  WEATHRCI# J#K)*0. 

550 1C 

5521  DO  80  1»1#NPH 

5541  IPH»I 

5561  IFtNACCI ) )80#80#5 

5581  5 READ(RUN#800)IL#NACC#NAMEP#1AFT 

5601  IF(NACC)10#10#15 


5621  10  PRINT  801#RUN 

5641  STOP 

5661  15  READ(RUN#802)IL 

5681  READ(RUN#802)IL 

5701  READ(RUN#802)1L 

5721  DO  16  K*1#NACC 

574 1 READCRUN#  802 ) I L# ( WEATHRf I # J#K) # J*1 # 6 ) 

5761  16  READ(RUN#802)IL#(WEATHR(I#J#K># J=7#12) 

5781  DO  18  K«l#10 

5801  18  READ! RUN# 802 )IL 

582 1C 


I 
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TABLE  9 (Cont) 
d.  Subroutine  WEATH  (Cont) 


5841  DO  40  J=l#3 

5861  IF(NAMEP( J)-NAME(I, J))30#40,30 

5881  30  PRINT  700* NAMEP, (NAMEt I ,K) #K=1 #3 ) 

5901  STOP 

5921  40  CONTINUE 

5941  IF(NAC( I )-NACC >50*60*50 

5961  50  PRINT  70 1 *NACC* NAC< I ) *NAMEP 

5981  STOP 

6001  60  CONTINUE 

6021  DO  80  J=1*NACC 

6041  IFUAFTt  J)-NPLA(I*  J)>70*80*  70 

6061  70  PRINT  702*NAMEP* I AFT( J) *NPLA( I * J) 

6081  STOP 

6101  80  CONTINUE 

6121  CLOSEFILE  RUN 

6141  RETURN 

6161C 

6181  700  FORMAT RUNWAY  PHASE  NAME  'SSAA*"  DOES  NOT  MATCH  PHAS 

6201  *E  NAME  "SAA/"  REVISE  AND  RERUN") 

6221  701  FORMATC"  RUNWAY  AIRCRAFT  TYPES  0F"*I3*"  DOES  NOT  MATCH"/ 

6241  *"  PHASE  TYPES  OF"* 13*"  FOR  PHASE:  "3A4/"  REVISE  AND  RERUN") 

6261  702  FORMATC*  FOR  PHASE  "*3A4*"  AIRCRAFT  NAMES  DO  NOT  MATCH 

6281  *PHASE  AIRCRAFT  NAMES  "* A4* IH* *A4/"  REVISE  AND  RERUN") 

6301  800  FORMATC 214* 6A4) 

6321  801  FORMATC  1X*A8*"  DATA  FILE  IS  INCOMPLETE-  UPDATE  AND  RERUN**) 

6341  802  FORMATC V) 

6361  END 


TABLE  9 (Cont) 
e.  Subroutine  MONTH 


6381 

SUBROUTINE  MONTH 

6401 

COMMON  DUMC15>#NX( 10)*M0N(2, 13) 

6421 

DIMENSION  MX<12) 

6441 

DATA  MX/5#4,4,5#4,4#5#4,4*5,4»4/ 

6461 

IF(M0N(2* 13) .GT.0)G0  TO  100 

6481 

PRINT  700 

6501 

10 

INPUT>N1,N2 

6521 

IF<  (N2.LT.1 ).0R.(N2.GT.12)  )GOTO20 

6541 

IF(  CNl .LT.l ).On.CNl .GT.MX(N2))  )G0T020 

6561 

GO  TO  30 

6581 

20 

PRINT>”INVALID  REPLY  - RETYPE" 

6601 
662 1C 

GO  TO  10 

6641 

30 

M0N(1,1 )=N2 

6661 

M0NC2, 1 )=1 

6681 

ND=MX(N2)-N1+1 

6701 

33 

DO  40  I =2# 13 

6721 

J=N2+I-1 

6741 

K=J-12*{  J/12) 

6761 

IF(K.EQ.0)K=12 

6781 

38 

MON(UI)=K 

6801 

M0N(2,1)=M0N(2#I-1 )+ND 

6821 
684 1C 

40 

ND=MX(K) 

6861 

PRINT  900#(M0N(l#J)j J=l,13) 

6881 

PRINT  910><M0N(2#J),J*1,13) 

6901 
692 1C 

RETURN 

6941 

100 

M0N(2, 1 )=M0N(2» 13) 

6961 

N2=M0N( U 13) 

6981 

ND»MX(N2) 

7001 

GO  TO  33 

7021 

700 

FORMAT (/"  ENTER  WEEK  OF  MONTH  (1-5)  AND  MONTH  (1-12)"/ 

7041 

ft"  THAT  CORRESPONDS  TO  WEEK  1 FOR  THIS  RUN(XX,XX)") 

7061 

900 

FORMAT (/"  MONTH  NO.  "*1314) 

7081 

910 

FORMATC  WEEK  NO.  "*1314//) 

7101 

END 
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f.  Subroutine  NOYES 


7121  SUBROUTINE  NOYES(*,*> 

7141  ALPHA  N 

7161  10  INPUT* N 

7181  IFCN.EQ.”N")RETURN1 

7201  lFtN.EQ«”Y")RETURN2 

7281  PRINT* "INVALID  REPLY  - RETYPE” 

7241  GO  TO  10 

7261  END 
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IV.  PROGRAM  DYNA2 

i 


PROGRAM  DESCRIPTION  j 

I 

4.1  Program  DYNA2  allows  the  user  to  temporarily  shock  (i.e.,  change) 

the  values  of  specific  planning  factors  for  a training  phase  and  week  of  training  | 

within  a designated  projection  range  (e.g.,  change  the  number  of  available  j 

aircraft  for  training  for  phase  3 in  week  2) . These  changes  are  carried  in  com-  \ 

mon  to  program  DYNA3  and  are  used  in  the  student  flow  calculations.  i 

4.2  Upon  entry,  the  value  of  the  common  variable  NX (5)  is  read  into  the  ^ 

variable  JFIAG.  If  JFLAG  = 0,  this  indicates  it  is  the  first  time  through  the  | 

program.  If  JFLAG  = 1,  this  indicates  a re-entry  to  the  program  with  the  same  | 

projection  range.  If  JFLAG  = -1,  this  indicates  a re-entry  to  the  program  with  j 

a different  projection  range.  If  JFLAG  = 0 , and  the  level  of  complexity  is  2 , 

the  user  is  given  the  options  of  listing  the  instructions  for  entering  values  and 
listing  the  planning  factors  which  can  be  shocked.  Each  listing  is  completed 
by  calling  subroutines  INST  and  VARIABLE,  respectively. 

4.3  If  JFLAG  = 1,  the  user  is  given  the  option  to  delete  all  previous  shock 
entries.  Otherwise,  the  previous  entries  remain  and  additional  entries  will 

be  added  to  them.  If  JFIAG  is  -1  or  0,  or  the  previous  entries  are  to  be  deleted, 
arrays  IWPS  and  VALUE  and  variable  NIWPS  are  initialized  to  zero.  The  shock 
parameters  (i.e.,  week,  number,  training  phase  number,  and  planning  factor 
number)  are  entered  into  the  array  IWPS.  This  procedure  is  repeated  for  each 
shock  entry. 

4.4  Then  the  new  value  for  the  planning  factor  is  entered  into  the  array 
VALUE.  For  those  planning  factors  that  require  a value  for  each  aircraft  type 
in  a training  phase  (maximum  of  three  per  phase),  the  array  NAG  is  checked  to 
establish  the  exact  number  of  aircraft  types  in  the  phase.  The  user  is  then  given 
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an  option  to  print  the  aircraft  types  and  their  order  in  the  phase.  The  user  only 
receives  this  print  option  once  for  each  phase  in  a given  projection  range.  An 
internal  index,  IFLAG,  is  set  equal  to  1 once  this  option  is  exercised  for  a 
phase.  The  user  is  then  told  to  input  the  corresponding  values  for  each  aircraft  "j 

type.  Following  this,  control  passes  to  subroutine  CHECK.  -i 

4.5  Upon  return  from  subroutine  CHECK,  the  user  is  asked  for  the  next  t 

set  of  shock  parameters  (up  to  a maximum  of  50  for  a projection  range)  and  the 

entire  input  procedure  is  repeated.  When  termination  is  indicated  by  the  entry 
of  three  zeros,  the  variable  NIWPS  is  set  to  indicate  the  exact  number  of  shock 
parameters  that  have  been  entered  for  this  projection  range  and  then  stored  in  I 

the  common  variable  NX(6).  Control  then  passes  to  program  DYNA3. 

SUBROUTINE  CHECK  | 

• * 

4.6  The  purpose  of  subroutine  CHECK  is  to  sort  the  shock  parameters  and 

planning  factor  values  in  ascending  order  by  week  number,  training  phase  num-  1 

ber,  and  planning  factor  number.  It  also  makes  any  desired  changes  or  elimi- 
nations in  the  shock  parameters.  If  a duplicate  set  of  shock  parameters  have 
been  entered,  the  array  VALUE  is  checked.  An  entry  of  (-99)  indicates  that 
the  corresponding  entry  of  shock  parameters  should  be  eliminated.  If  the  value 
is  not  (-99),  the  entered  values  will  replace  those  previously  entered.  The 
arrays  IWPS  and  VALUE  are  adjusted  to  reflect  any  changes.  Control  is  then 
transferred  back  to  DYNA2. 


SUBROUTINE  INST 

4.7  The  purpose  of  subroutine  INST  is  to  print  the  instructions  for  entering 
data  in  PROGRAM  DYNA2 . 

SUBROUTINE  VARIABLE 


4.8  The  purpose  of  subroutine  VARIABLE  is  to  print  the  shock  variables, 
their  access  numbers,  and  a current  maximum  value.  Upon  entry,  the  various 
common  arrays  containing  the  current  values  of  the  shock  variables  are  scanned 
for  all  phases  to  select  the  maximum  value.  After  completion,  the  variables, 
their  access  number,  and  the  maximum  value  are  printed.  Control  is  then 
returned  to  the  main  program. 
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Entry  From 
DYNA1 


•^irst  Time  \ 
Through 
JFLAG'O? 


(JFLAG  = 

'Different  -l)Yes 

Projection 
Range  ? 


No  (JFLAG  * 1) 


Call  INST 


Print 

Instructions  ? 


Change  All 
Parameters  ? 


1 iNo 

No 

Yes 

Print  Shock 

Call  VARIABLE  P 

V Variables  ? 

-^No 

Enter  Shock 
Parameters 


Indicate 
Termination  ? . 


Yes 

\ 

Transfer 

to  DYNA3 

t 

Enter  Shock 
Value(s) 


Call  CHECK 


FIGURE  4.  PROGRAM  DYNA2  FLOW  CHART 
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TABLE  10 

PROGRAM  DYNA2  VARIABLE  DICTIONARY 


^•4 


Location 

Variable 

Name 

Dimension 

Description 

DYNA2 

NIWPS 

Equivalent  to  common 
variable  NX (6) 

DYNA2 

IFLAG 

1 

Equivalent  to  common 
variable  NX (5) 

DYNA2 

II 

1 

Equivalent  to  common 
variable  NX(1) 

DYNA2 

12 

1 

Equivalent  to  common 
variable  NX (2) 

DYNA2 

ISUB 

3 

Current  set  of  shock 
parameters 

DYNA2 

TEMP 

3 

Values  of  current  shock 
variables 

DYNA2 

ICKA 

1 

Count  of  number  of 
times  shock  parameters 
incorrectly  entered 

DYNA2 

IFLAG 

25 

Print  switch  IFLAG  (I)  = 0 
for  print  option  of  a 
aircraft  type  for  the 
I^h  training  phase 

IFLAG  (I)  » 1 indicates 
previous  printing,  no 
option  given 

VARIABLE 

R 

15 

Current  maximum  value 
of  shock  variable  I 

TABLE  11 

DYNA2  PROGRAM  AND  SUBROUTINE  DICTIONARY 


DYNA2 


CHECK 


INST 


VARIABLE 


Allows  the  user  to  temporarily  change  (i.e. , shock)  the 
values  of  specific  planning  factors  for  a training  phase 
and  week  of  training  within  a designated  projection  range 

Sorts  the  shock  parameters  by  week,  phase,  and  planning 
factor  reference  number 

Lists  the  instructions  for  entering  data 

Lists  the  planning  factors  that  can  be  changed  and  their 
current  maximum  value 
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PROGIWM  DYNA2  T.ISTING 


- PHOGHAM:  DYNAP  (SHOCK  MODULF) 

COMMON  lY,  ISW>NPH,LP:v;LSH,KILL^  IS(  10),NX(  10),M0N(P,  1 S) 

COMMON  NAMK.(  P5, 3 ) , NPLA(  PS,  3 ) , NAC  ( PS  ) , I WPS(  S3, 3 ) , 

«VALnK(53,3)  ,FACTP.  1 (P5,/l)  ,FACTUP(PS,3,fO,  WF.ATinUPS,  1P,3>, 
AWASri(PS,R),XINC(P5,P6),SI  ( 1 00, 3 ) , DMMMYC  PS,  A ) 

DIMENSION  IFLAG(PS) 

ALPHA  NPLA 
NIWPS=NX(6) 

JFLAG=NX(5) 

I 1 =NX( 1 ) 

IP=NXCP) 

IF(JFLAG)  17,05,15 

05  IF(LFVLSH-P)PO, 10,P0 

10  PRINT  1 1 

11  FOHMATC/"  PRINT  INSTRUCTIONS  FOR  SHOCK  M0DULE( Y, N>”  > 

CALL  N0YES(S13, JIP) 

IP  CALL  INST 

13  PRINT  08 

R FORMAT(/"  PRINT  SHOCK  VAR I ARLES ( Y , N ) " ) 

CALL  N0YES(SP0,S1A) 

lA  CALL  VAR I ABLE 
GO  TO  PO 

15  I=NIWPS 
PH I NT  16 

16  FORMAT!/"  DELETE  THE  PREVIOUS  SHOCK  ENTRIES  (Y,N)") 

CALL  N0YES(S35,SP0) 

17  PRINT  IR 

IR  FORMAT! /"  A NEW  PROJECTION  RANGE.  THE  PREVIOUSLY  ENTERED"/  | 

A"  SHOCK  PARAMETERS  WERE  NOT  SAVED."//) 

PO  DO  PS  1=1,53  |i 

DO  P5  J=l,3  I 

IWPS!I,J)=0 

P5  VALUE! I , J)=0. 

;t 
;i 
1 
3 
3 
3 
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782C- 

THIS  SECTION  ACCEPTS  THE  SHOCK  PARAMETERS 

802 

30  1=0 

822 

35  1=1+1 

842 

IF(I .LT.52)  GO  TO  45 

862 

PRINT>"NO  MORE  SHOCK  PARAMETERS  ALLOWED" 

882 

GO  TO  185 

902 

45  PRINT  47 

922 

47  FORMATC"  ENTER  SHOCK  PARAMETERS(XX#XX>XX)") 

942 

IF(I .EQ.l )PRINT>"TO  TERMINATE  SHOCK  ENTER(0*0 

*0)" 

962 

50  ICKA=0 

982 

ICKA=ICKA+1 

1002 

IF(ICKA.EQ.9)G0  TO  100 

1022 

INPUT,(IWPS(I* J=l,3) 

1042 

DO  60  J=l»3 

1062 

IF<IWPS(I*J).EQ.O)  GO  TO  60 

1082 

GO  TO  65 

1102 

60  CONTINUE 

1122 

GO  TO  185 

1142C 

1162 

65  IF<n7PS<I»l).EQ.O)  GO  TO  75 

1182 

IF(IWPS(I>1 ).GT.I2)  GO  TO  70 

1202 

IFCIWPS<I»1).LT.I1)G0  TO  70 

1222 

GO  TO  75 

1242 

70  PRINT*”INVALID  WEEK  NO*  - RETYPE  ALL  SHOCK  PARAMETERS" 

1262 

GO  TO  50 

1282C 

1302 

75  IF(IWPSCI»2) .LT.O)  GO  TO  80 

1322 

IF(IWPS(I#2).GT.NPH)  GO  TO  80 

1342 

GO  TO  85 

1362 

80  PR I NT* "INVALID  PHASE  NO.  - RETYPE  ALL  SHOCK 

PARAMETERS" 

1382 

GO  TO  50 

1402C 

1422 

85  IF<IWPS(I*3) .LT.l ) GO  TO  90 

1442C 

- - ADJUST  FOR  SHOCK  NO.  4 

1462 

IF(IWPS(I*3>.GE.4)IWPS(I*3)=IWPS(I*3)+1 

1482 

IF(IWPS(I*3).GT.15)  GO  TO  90 

1502 

IF(IWPS(I*3).LT.5>  GO  TO  105 

1522 

IF<  (IWPSCI*3) .EQ.12) .0R.(IWPS(I*3) .EQ.13)  ) 

GO  TO  105 

1542 

GO  TO  120 

1562 

90  PRINT*"INVALID  SHOCK  NO.  - RETYPE  ALL  SHOCK 

PARAMETERS" 

1582 

GO  TC  50 

1602 

100  PR I NT* "TERMINATING  SHOCK  BECAUSE  OF  TOO  MANY 

ERRORS" 

1622 

GO  TO  185 

1642C 

57 


TABLE  12  (Cont) 


leezc 

1682 

1702 

1722 

1742 

1762 

1782 

1802 

1822 

1842 

1862 

1882 

1902 

1922 

1942C 

1962 

1982 

2002 

2022 

2042 

2062 

2082 

2102 

2122 

2142 

2162 

2182 

2202 

2222 

2242 

2262 

2282 

2302 

2322 


THIS  SECTION  ACCEPTS  ONE  SHOCK  VALUE 

105  PRINT  107 

107  FORMAT  (••♦ENTER  1 SHOCK  VALUE^^) 
no  INPUT*  VALUE(I*1) 

IF(-99.EQ.VALUE(I* 1 nCALL  CHECK(I*$35) 

IF(IVPS(I*3>.EQ.l > GO  TO  112 

IF(  (IWPS(I*3).LT.12>.AND.(IVPS(I*3>.GT.8>  ) GOTO  112 
CALL  CHECK(I*S35) 

112  IF(VALUE(I*l>.GT.l .0>  GO  TO  115 
IF(VALUE(I*l>.LT.O)  GO  TO  115 
CALL  CHECK(I*$35> 

115  PR  I NT  •••INVALID  ENTRY*  THE  VALUE  MUST  BE  A PERCENTAGE  FIGURE 
«*  RETYPE  IT.^^ 

GO  TO  no 

THIS  SECTION  FINDS  NUMBER  OF  AIRCRAFT  IN  PHASE 

120  IF(IWPS(I*2).EQ.O)  GO  TO  135 
K2«NAC(IVPS(I*2)) 

IF(K2.EQ.0)G0  TO  180 
IF(LEVLSR-2)  130*125*130 

125  IF(IFLAG(IWPS(I*2)>.EQ.l)  GO  TO  130 
IFLAG(IWPS(I*2))=1 

PRINT  126 

126  FORMAT  (••♦PR  I NT  THE  AIRCRAFT  IN  THIS  PHASE<  Y*N)^^) 

CALL  N0YES(S130*$127> 

127  PRINT  128*(NPLA(IWPS(I*2>*J)*J=1*K2) 

128  F0RMAT(^^+^^*3(2X*A4)> 

PRINT*^^  •• 

130  CONTINUE 

133  IF(K2.EQ.n  GO  TO  105 
GO  TO  160 
135  K2*0 

DO  140  Jsl*NPH 
140  K2»MAX0(K2*NAC( J) ) 

GO  TO  133 


58 
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2342C" 

-THIS  SECTION  ACCEPTS  2-3  SHOCK  VALUES 

2362 

160 

PRINT  165#K2 

( 

2382 

165 

FORMAT(”+ENTER", I2>”  SHOCK  VALUES”) 

2402 

168 

INPUT* (VALUE<I> J), J=1,K2) 

2422 

IF<(IWPS(I*3).LT.9)  .OR.d  WPS(I*3)  .GT.l  1 ))CALL  CHECKUPS  35) 

2442 

DO  170  J=1*K2 

2462 

IF( -99 .EQ .VALUE( I * J) )CALL  CHECK< I * S35) 

\ 

2482 

IFCVALUEd,  J)  .GT.l  .0)  GO  TO  175 

2502 

IFCVALUECI* J) .LT.O)  GO  TO  175 

T--9 

2522 

170 

CONTINUE 

, 

2542 

CALL  CHECKd*S35) 

2562 

175 

PRINT*"INVALID  ENTRY,  MUST  USE  PERCENTAGE  FI GURES-RETYPE” 

2582 

GO  TO  168 

k 

2602 

180 

PRINT, "THERE  ARE  NO  AIRCRAFT  IN  THIS  PHASE,  RETYPE  THE" 

2622 

PRINT, "SHOCK  PARAMETERS" 

1 H 

2642 

GO  TO  50 

2662C 

2682 

185 

NIWPS=I-1 

2702 

NX(6)=NIWPS 

2722 

PRINT,"  " 

' • 

2742 

IF(-1 .LT.NIWPS)GO  TO  300 

V. 

2762 

DO  187  I=1,NIWPS 

* 

2782 

187 

PR  I NT  700,  C I WPS  d,J),J=l,3),(  VALUEC  I , J)  , J=  1 , 3 ) 

1 * 

2802 

700 

F0RMAT<2X,3I4,3F10.3) 

2822 

300 

CHA1N"DYNA3*" 

2842 

END 

TT 


w 


11 


TABLE  12  (Cont) 
a.  Subroutine  CHECK 


2862 

2882 

2902 

2922 

2942 

2962 

3002 

3022 

3025 

3027 

3029 

3042 

3062 

190 

3082 

3085 

3102 

3122 

3142 

3162 

195 

3182 

200 

3202 

205 

3222 

3242 

3262 

3282 

215 

3302 

3322C 

3342 

220 

3362 

222 

3382 

3402 

3422 

225 

3442 

227 

3462 

3482 

3502 

3522 

3542 

3562 

230 

3582 

3602 

3622C 

SUBROUTINE  CHECK(I«4r) 

COMMON  I Y« I S V« NPH« LEVLSR* KI LL< ISC10)*NX(10)« MON( 2 « 1 3 ) 
COMMON  NAMEC25*3)«NPLAC25#3>«NAC(25)«IVPS(53«3)« 
ftVALUE(53«3>»FACTRH25<4)«FACTR2(25»3#6>/WEATHR(25«  12«3)« 
ftVASR(25«8)#XINC(25«26> 

DIMENSION  ISUB(1«3)«TEMP(1«3> 

K-l 

DO  190  J-l«3 
V-VALUECI# J) 

IF<  Cl .EQ.l ) .AND.<-99.EQ.V)  )G0  TO  300 
IFC  <V.LT.0>.AND.(-99.NE.V)  )G0  TO  300 
ISUB(K«J>>IWPSCI« J> 


TEMP C K# J ) -VALUE C I * J ) 
M-I-1 

IF(M.EQ.0)G0  TO  275 
DO  215  IC-UM 
N-M-IC+1 

IFCIWPSCN^D-ISUBCK,  1 )) 
IF(IVPSCN«2>-ISUBCK«2)) 
IF(IWPSCN*3)-ISUBCK,3)> 
DO  215  J-l«3 
1WPSCN+1^J)=IWPSCN#J) 
VALUE  C N+ 1 » J) -VALUE  < N#  J) 
IWPSCN* J)-ISUB(K, J) 
VALUE  C N>  J) -TEMP  C J ) 

GO  TO  260 


260>195«205 

260«200<20S 

260«220«205 


DO  222  J-l«3 

IFC-99.EQ.TEMPCK, J) ) GO  TO  2A0 

PR  I NT*  "DUPLICATE  ENTRY— NEW  VALUECS)  REPLACED  OLD" 
DO  225  J-l*3 


DO  230  IC=1*L 
DO  230  J=l*3 
KK-N+IC 
Kl-KK-t-1 

IWPSCKK* J)-IWPSCK1. J) 


I-M 

GO  TO  275 


60 


] 


fj 


V 

\'{ 

c. 

f V? 


TABLE  12  (Cont) 
a.  Subroutine  CHECK  (Cont) 


3642 

240 

PRINT>"EL1M1NATI0N  OF  PARAMETERS  COMPLETED' 

3662 

L«(M+1 )-<N-l ) 

3682 

DO  250  IC=l>L 

3702 

DO  250  J=l*3 

3722 

KK=N+IC-1 

3742 

Kl»KK+2 

3762 

IWPStKK# J)=IWPS(K1, J) 

3782 

250 

VALUE ( KK# J) =VALUE ( K U J) 

3802 

I»M-1 

3822 

GO  TO  275 

3842C 

3862 

260 

DO  265  J=l*3 

3882 

IF<-99.EQ.TEMP(K, J))GO  TO 

270 

3885 

265 

CONTINUE 

3902 

GO  TO  275 

3922 

270 

PRINT#"NO  ELIMINATION  WAS 

MADE- -INCORRECT 

3942 

GO  TO  227 

3945 

300 

1=1-1 

3947 

PRINT, "INVALID  REPLY" 

3962 

275 

RETURN i; END 

TABLE  12  (Cont) 
b.  Subroutine  INST 


<■ 


4 


X 


3982  SUBROUTINE  INST 

4002  PRINTS***  ♦ ♦ SHOCK  MODULE  INSTRUCTIONS  ♦ ♦ ♦” 

4022  PRINT  210 

4042  210  FORMAT!/”  THE  FIRST  ENTRY  WILL  BE  THE  3 SHOCK  PARAMETERS”/ 

4062  WEEK  NO.*  PHASE  NO.*  SHOCK  VARIABLE  NO.  <XX*XX*XX)”> 

4082  PRINT  215 

4102  215  FORMAT!/”  THE  SECOND  ENTRY  WILL  BE  THE  VALUE!S)  THE  SHOCK” 

4122  *”  VARIABLE  WILL”/”  ASSUME*  DEPENDENT  ON  THE  NUMBER  OF” 

4142  «”  AIRCRAFT  TYPES!A*B*C) .”/”  VALUE* VALUE* VALUE!AAA*BBB*CCC )”//) 

4162  PRINT*”*  ♦ ♦ SPECIFIC  RULES  OF  SHOCK  ♦ ♦ ♦” 

4182  PRINT  230 

4202  230  FORMAT!/”  1.  TO  CHANGE  A VALUE  PREVIOUSLY  ENTERED* RETYPE” 

4222  *”  THE  PARAMETERS”/* 3X*”  AND  ENTER  A NEW  VALUE.  A !-99)” 

4242  *”  VALUE  ENTRY  ELIMINATES  THE  PARAMETERS.”) 

4262  PRINT  240 

4282  240  FORMAT!”  2.  TO  CONSIDER  THE  SHOCK  VARIABLE  FOB  THE  ENTIRE” 

4302  *”  PR0JECTI0N”/*3X*”  RANGE*  ENTER  !0)  FOR  THE  WEEK.  A !0>” 

4322  *”  ENTRY  FOR  THE  PHASE  INDICATES”/*3X*”  ALL  PHASES  WILL  BE” 

4342  *”  CONSIDERED.”) 

4362  return;  END 


r ' 

^ 1 

A 

I 

TABLE  12  (Cont) 

T 

1 

c.  Subroutine  VARIABLE 

, 1 

4382 

SUBROUTINE  VARIABLE 

1 

4402 

COMMON  IY,ISW,NPH,LEVLSR,KILL,IS< 10),NX( 10) ,M0N<2, 1 3) 

4 

4422 

COMMON  NAME<25,3),NPLAC25,3),NAC(25),IWPSC53,3), 

4442 

AVALUE(53*3)*FACTR1(25»4),FACTR2(25*3,6)*WEATHR(25# 12,3), 

[ 

4462 

*WASR(25,8),XINC(25,26> 

4482 

DIMENSION  RU5) 

4502 

DO  05  Ial,15 

J 

4522 

5 

R(I )*0 

1 

4542 

DO  15  1=1,4 

4562 

DO  10  J=1,NPH 

r 

4582 

10 

R(I)=AMAX1(RCI),FACTR1CJ,D) 

4602 

15 

CONTINUE 

4622 

DO  25  K=l,6 

4642 

M=K+4 

‘ 

4662 

DO  20  J=l,3 

4682 

DO  20  1=1, NPH 

' 

4702 

20 

R(M)-AMAX1 (R(M),FACTR2(I, J,K)) 

4722 

25 

CONTINUE 

4742 

DO  30  1=1, NPH 

4762 

DO  30  J=l,12 

4782 

DO  30  K=l,3 

1 

4802 

30 

R ( 1 1 ) »AMAX 1 ( R ( 1 1 ) , WEATHR ( I , J, K ) ) 

vf  ] 

4822 

DO  40  J=l,2 

4842 

M=J+1 1 

* ' T 

4862 

DO  35  1=1, NPH 

1 i 

4882 

35 

R(M)-AMAX1(R(M),VASR(I, J)) 

4902 

40 

CONTINUE 

4922 

N=3 

. 

[ 

4942 

DO  55  M«14,15 

; 

*■ 

4962 

K=N+2 

’ 

4982 

DO  50  J=N,K 

5002 

5022 

5042 

5062 


DO  50  I«1*NPH 

50  R(M)«AMAX1(R(M),WASR(I#J>) 
N»N+3 

55  CONTINUE 


I 

t 


i 

I, 


1 

t ■ 

V, 

it: 

Ti 


n. 


TABLE  12  (Cont) 

c.  Subroutine  VARIABLE  (Cont) 


5082 

5102 

5122 

5142 

5162 

5182C 

5202 

5222 

5242 

5262 

5282 

5302 

5322 

5342 

5362 

5382 

5402 

5422 

5442 

5462 

5482 

5502 

5522 

5542 

5562 

5582 

5602 

5622 

5642 

5662 

5682 

5702 

5722 

5742 

5762 


PRINT  600 

PRINT#”  1.  PHASE  ATTRITION  RATE”;PRINT  601#R(1> 

PRINT#”  2.  PHASE  DURATION  IN  VEEKS”;PRINT  602#R(2) 

PRINT#”  3.  DAYS  SCHEDULED  TO  FLY  PER  WEEK” 

PRINT  602#R(3> 

R<4)  IS  NOT  PRINTED 

PRINT#”  4.  HOURS  PER  DAY  AIRCRAFT  UTILIZED  PER  AIRCRAFT  TYPE” 
PRINT  602#R(5> 

PRINT#”  5.  HOURS  PER  DAY  INSTRUCTOR  UTILIZED  PER  AIRCRAFT  TYPE 
PRINT  602#R(6) 

PRINT#”  6.  AVERAGE  FLIGHT  HOURS  TO  TRAIN  STUDENT 
i PER  AIRCRAFT  TYPE” 

PRINT  602#R<7) 

PRINT#”  7.  AVERAGE  INSTRUCTOR  HOURS  TO  TRAIN  STUDENT 
A PER  AIRCRAFT  TYPE” 

PRINT  602#R(8) 

PRINT#”  8.  AIRCRAFT  PERCENT  AVAILABILITY  PER  AIRCRAFT  TYPE” 
PRINT  601#R(9) 

PRINT#”  9.  INSTRUCTOR  PERCENT  AVAILABILITY  PER  AIRCRAFT  TYPE” 
PRINT  601#RC10> 

PRINT#” 10.  MONTHLY  WEATHER  FACTOR  PER  AIRCRAFT  TYPE” 

PRINT  601#R(11) 

PRINT#”11.  STUDENT  INPUT  PER  WEEK” 

PR1NT#”12.  STUDENT  OUTPUT  PER  WEEK” 

PRINT#”13.  NUMBER  OF  AIRCRAFT(A3  STATUS)  PER  AIRCRAFT  TYPE” 
PRINT  602#R(14) 

PRINT#”14.  NUMBER  OF  INSTRUCTORS  PER  AIRCRAFT  TYPE” 

PRINT  602#R(15) 

PRINT#”  ” 

600  FORMAT (”  **  THE  SHOCK  VARIABLES  ARE  LISTED  WITH  THEIR” 

*”  RESPECTIVE”/”  ACCESS  NUMBER  AND  A CURRENT” 

*”  MAXIMUM  VALUE  **”//) 

601  F0RMAT(3HA  (#F5.3#1H>) 

602  F0RMAT(3H«  (#F7.2#1H)) 
return; END 


5782 

5802 

5822 

5842 

5862 

5882 

5902 

5922 


d.  Subroutine  NOYES 

SUBROUTINE  N0YES(«#4>) 

ALPHA  N 
10  INPUT#N 

IFCN.EQ.”N”)RETURN1 
I F ( N . EQ . ”Y” ) RETURN2 
PRINT#”1NVAL1D  REPLY  - RETYPE" 

GO  TO  10 
END 
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V. 


PROGRAM  DYNA3 


PROGRAM  DESCRIPTION 

5.1  The  purpose  of  Program  DYNA3  is  to  calculate  and  save  all  the  results 
of  the  student  flow  calculations. 

5.2  Upon  entry,  the  array  VARBLE,  which  is  used  to  store  shock  values, 

is  set  equal  to  999  .9,  and  the  file  DYNA3  is  positioned  to  the  first  record.  The 
common  array  IWPS  is  scanned  to  identify  any  shock  variables  that  apply  to  all 
weeks  and  all  phases  in  the  projection  range.  Variable  IZ  is  set  equal  to  the 
number  of  these  shock  values.  If  any  are  found,  the  shock  variable  access 
number  is  stored  in  the  array  MAXCHG  and  the  value  of  the  shock  variable  is 
stored  in  the  array  VARBLE.  Another  check  is  made  to  identify  the  shock 
variables  that  apply  to  all  weeks  and  a single  phase.  The  variables  IPHF^^ 
and  IPHLCJCf  are  set  to  indicate  respectively  the  first  and  last  positions  of 
these  entries  in  the  array  IWPS . 

5.3  Next,  the  students  on  board  and  student  output  for  the  week  preceding 
the  first  week  of  the  projection  range  are  read  by  phase  into  the  common  array 
CURNTl  from  the  common  array  CURRNT.  (CURRNT  is  equivalent  to  the  WASR  array 
in  DYNAl  if  the  first  week  of  the  range  is  1.)  If  this  is  not  the  first  time  through 
the  program  and  the  user  has  increased  the  projection  range  (i.e. , from  1-10 

to  11-20) , the  array  CURRNT  is  updated  to  save  the  values  of  the  last  week  of 
the  previous  projection  range.  Then  these  values  are  read  into  CURNTl. 

5.4  At  this  point  the  program  starts  a loop  for  all  the  weeks  in  the  projec- 
tion range.  The  number  of  the  month  of  training  for  the  week  is  identified  and 
stored  in  array  MNTH  to  be  used  later  for  identifying  the  proper  monthly  weather 
factor. 

5.5  The  program  then  starts  a loop  for  all  phases.  The  common  array 
NPHASE,  containing  the  entry  phase  numbers,  is  matched  against  each  phase 


number.  If  matched  (i.e. , both  phases  have  the  same  number)  , the  array  PTRSI 
is  used  for  the  student  input  of  the  entry  phase.  Next,  the  percentage  of  stu- 
dents coming  into  this  phase  from  preceding  phases  is  obtained  by  multiplying 
the  student  output  of  phases  in  the  preceding  weeks  with  the  appropriate  column 
of  the  Incident  matrix,  XINC.  The  result  of  this  calculation  may  be  zero.  The 
total  student  input  is  stored  in  variable  STUDIN. 

5.6  Following  this,  the  variable  IPHF<60  is  checked  to  see  if  any  shock 
variable  for  all  weeks  and  a single  phase  were  entered.  If  so,  the  phase  for 
the  shock  variable  is  matched  against  each  phase  and  the  shock  value  is  stored 
in  array  VARBLE  if  a match  takes  place.  A similar  process  is  done  for  a shock 
variable  applicable  to  a single  week  and  all  phases;  only  the  match  is  for 

the  current  week.  Finally,  a check  is  made  for  shock  variables  applicable  to 
a specific  week  in  the  projection.  If  matched  against  the  current  week,  the 
value  of  the  shock  is  stored  in  array  VARBLE.  Shock  values  for  specific  weeks 
and/or  phases  override  any  corresponding  shocks  applied  to  all  weeks 
and/or  phases . 

5.7  After  all  shock  values  have  been  stored,  the  remaining  planning  fac- 
tor values,  which  were  not  shocked,  are  loaded  into  VARBLE  from  the  common 
arrays  set  up  in  DYNAl . 

5.8  Subroutine  CALC  is  now  called  to  perform  the  required  calculations. 
Upon  return,  array  VARBLE  is  again  set  equal  to  999.9.  For  IZ  / 0,  the  values 
of  shock  variables  for  all  weeks  and  phases  are  loaded  into  array  VARBLE 
using  array  MAXCHG  to  specify  which  shock  variable.  The  array  CURNTl  is 
updated  to  rsflect  the  student  load  and  output  for  each  phase.  This  entire  pro- 
cedure is  repeated  for  each  phase.  The  results  for  all  phases  for  the  week  are 
then  written  on  file  DYNVAL  and  the  program  repeats  the  process  for  the 

next  week  in  the  projection  range. 

5.9  When  all  the  weeks  in  the  projection  range  have  been  completed, 
the  array  CURNT2  is  set  equal  to  CURNTl  (the  student  load  and  output  for  all 
phases  of  the  last  week  in  the  projection  range) . CURNT2  is  used  if  the 
user  has  another  run  with  a new  projection  range.  Control  is  then  transferred 
to  DYNA4. 

SUBROUTINE  CALC 

5.10  The  purpose  of  subroutine  CALC  is  to  calculate  the  student  load,  stu- 
dent output,  attrites , and  aircraft  and  instructor  utilization.  Upon  entry,  the 
variable  WK  (phase  duration  in  weeks)  is  set  up.  Array  VARBLE  is  checked  to 
see  if  the  user  has  entered  a shock  value  for  student  output  (VARBLE  / 999.9) . 

If  not,  three  different  equations  are  used  to  compute  the  output.  Upon  com- 
pletion of  the  computation,  a library  function  is  used  to  select  the  minimum 
output  of  the  three  calculations . Next,  the  attrites  and  student  load  for  the 
phase  are  computed.  Finally,  a test  is  made  to  see  if  the  current  phase  requires 
aircraft.  If  so,  the  aircraft  and  instructor  utilization  is  computed,  and  control 
is  then  returned  to  DYNA3. 
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Entry  From 
DYNA2 


FIGURE  5 . PROGRAM  DYNA3  FLOW  CHART 
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a.  Subroutine  CALC 


FIGURE  5 (Cont) 
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TABLE  13 

PROGRAM  DYNA3  VARIABLE  DICTIONARY 


Location 

Variable 

Name 

Dime  ns  ion 

' A' 

Description 

Common 

NPTRSI 

1 

Total  number  of  entry 
phases  (equivalent  to 
ISW  in  DYNAl) 

Common 

NPHASE 

3 

Number  of  entry  phase  I 
equivalent  to  IS  (3)  to 
IS  (6) 

Common 

ISX 

4 

Permanent  storage 

Common 

IFIRST 

1 

Equivalent  to  common 
variable  I'IX(l) 

Common 

IFINAL 

1 

Equivalent  to  common 
variable  NX (2) 

Common 

IFRST2 

1 

Equivalent  to  common 
variable  NX (3) 

Common 

IFNAL2 

1 

Equivalent  to  common 
variable  NX (4) 

Common 

NX  5 

1 

Permanent  storage 

Common 

NIWPS 

1 

Equivalent  to  common 
variable  NX  (6) 

Common 

NX6 

4 

Permanent  storage 

DYNA3 

CURRNT 

25,2 

Student  data  for  phase  I, 

J = 1 , 2 denotes  students 
on  board  and  student  out- 
put for  the  week  preceding 
the  first  week  of  the  pro- 
jection range 

DYNA3 

CURRAI 

25,3,2 

Number  of  aircraft  and 
instructors  assigned  for 
phase  I,  1=1,  3 denotes 
up  to  three  aircraft  types , 
K = 1 , 2 denotes  aircraft 
and  instructor 
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TABLE  13  (Cont) 


Location 

Variable 

Name 

— 

Dimension 

Description 

Common 

PTRSl 

100,3 

Equivalent  to  common 
variable  SI  (100,3) 

Common 

CURNTl 

25,2,2 

Student  data  for  phase  I, 

1 = 1,2  denotes  student 
on  board  and  student  out- 
put , K = 1 , 2 denotes  the 
current  week  and  previous 
week  in  the  projection 
range. 

Common 

CURNT2 

25,2 

Student  data  for  phase  I of 
the  last  week  in  the  pro- 
jection range,  J = 1,  2 
denotes  student  on  board 
and  student  output 

Common 

MAXCHG 

15 

Shock  variable  access  num- 
ber for  the  variable 

applicable  to  all  weeks  and 
all  phases 

Common 

VARBLE 

15,3 

Value  of  shock  variable  I, 

J = 1 , 3 denotes  up  to  three 
aircraft 

Common 

IMAX 

15 

The  shock  variable  appli- 

cable to  all  weeks  and  all 
phases 

Common 

SO 

25 

Student  output  for  phase  I 

Common 

SL 

25 

Student  load  for  phase  I 

Common 

AT 

25 

Student  attrition  for  phase  I 

Common 

AUTIL 

25,3 

Aircraft  utilization  for  phase  I 
aircraft  type  J , J = 1 , 3 

Common 

FUTIL 

25,3 

Instructor  utilization  for 
phase  I,  aircraft  type  J,  J = 1 , 
3 

DYNA3 

IPHFOO 

1 

Position  of  the  first  shock 
parameter  set  in  array  IWPS 
that  considers  all  weeks 
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TABLE  13  (Cont) 


1 

) 

X 


Location 

Variable 

Name 

Dimension 

Description 

DYNA3 

IPHLOO 

1 

Position  of  the  last  shock 
parameter  set  in  array 
rWPS  that  considers  all 
weeks 

CALC 

WK 

1 

Phase  duration  in  weeks 

CALC 

COMRTE 

1 

Weekly  completion  rate 

CALC 

WKATR 

1 

Weekly  attrition  rate 

TABLE  14 

DYNA3  PROGRAM  AND  SUBROUTINE  DICTIONARY 


DYNA3 


Sets  up  all  data  used  for  student  flow  calculations  and 
writes  results  on  DYNVAL 


CALC 


I 

I 

I 


TABLE  15 

PROGRAM  DYNA3  LISTING 


103C-  - p;  0(V.  AM;  i 'Y'  A3  ( C AI.CMiLATK;:  PTMDRmT  FLO'v) 

1 c or^MOK  I Mi  t:  ;; i > k'ph> LEUij:.i' , kill,  r ■ ( 3 ) i a;- yr ( 3 > , 

1 A3  A I fM/-  ( /t  ) , I Fl  i .‘•.T  , I FI  KAL,  I Fi'.STP  , I FF  ALP  , MV  3,  KI  VP3  , MKAC  A ) 

1A3  COKKON  MOF(P,13) 

1 <•-'  3 C 0r-3M  OF'  NA  YK  ( p 3 , 3 ) , Fil-'  1 .A  ( P 5 , 3 ) , FAC  ( P 3 ) , I Y)’ ( 3 3 , 3 ) , 

?03  AVALr'F(53,3),FACTi’l  ( P3  , A ) , FACTl  P ( P5 , 3 , A ) , mf.ATH);(P5,  IP,  3), 

PP3  ACnri;’MT(P3,"’),ni,;ii.Ai  (P3,3,P),/:imc(?3,pa),pt'  ;;i  c ion, 3), 

PA 3 ACFn.FTl  (P5,P,P),CiJliNTP(P5,P) 

PA3C 

PA3  COMMOM  MA.  -’CFGf  13),  VA.CPLF  ( 1 3,  3 ) , I '-’VAY.  (13), 

303  pp:0(P5),.';L(P5),AT('^5),AnTIL(P3,3),FnTIL(P3,3) 

3P3  IMHL00=0 

3A3  IPKFon=n 

333  no  5 1=1,15 

333  no  5 J=l,3 

A03  5 VAi-nLECI,  J)=999.0 

AP3  IX=1 

AA3  ;'FT("nYFV'AL")TO  l 

AA3C 

Af^<3C  *+  5FCTI0F  TO  GATHFi?  TOTAL  PHOJ.  i'^AMCF  AFP  PHASE  SHOCK.; 

303  ir=o 

5P3  iFc;  is'iLs.r’  .0)  no  to  30 

5A3  no  P5  I = l,Fr.'^.S 

333  IF(Iv.’PS(I,l)  .F.f^.O. AMP. l-vP.S(I,p).Kr  .0)00  TO  PO 

533  IF(  IM..;;c  I , 1 ) .Hv:.o)no  TO  10 

303  IPHFOO=I 

3P3  no  10  J=  I,  LI  UP  .3 

303  IF(  IU'’;-(  J,  1 ) .^’F.F^)^0  TO  15 

333  10  COMTIUMF 


TABLE  15  (Cont) 


r>R3C 

FALL  THROUGH  HERE  IF  NO  WEEKLY  SHOCKS 

703 

15 

IPHLOO=J 

7R3 

GO  TO  30 

• s 

743 

18 

IPHF00=0 

763 

IPHL00=0 

7B3 

GO  TO  30 

R03 

20 

IZ=IZ+1 

823 

MAXCHG ( I Z ) = I WPS  Cl , 3 ) 

— » 

843 

IXMAXC IZ)=I 

863 

DO  22  K=l,3 

• • 

883 

22 

VAnPLECIWPSCI^3)*K>=VALUECI,K) 

903 

25 

CONTINUE 

' 

np3C 

943 

30 

IXSHOK«IPHLOO  + 1 

» * 

963C 

- - 

CHECK  PROJECTION  RANGE  FOR  UPDATI^3G  CUR 

RNT  ARRAY 

- ' 

983C 

- - 

imiCH  CONTAINS  INCOMING  STUDENT 

LOAD  A 

OUTPUT 

1003C 

- - 

-IF  '.'/EEK  EOUALS  1 USE  WASP.  DATA 

1023 

IFCIFIPST.EO.l )G0  TO  50 

- 

1043C 

- - 

IF  FIRST  WEEK  OF  CURRENT  RANGE 

EOUALS 

FIRST  OF  LAST  RANGE 

1063C 

- - 

NO  UPDATE  NECESSARY 

• • 

1083 

IFCIFinST.E0.IFRST2)G0  TO  50 

1 103C 

- - 

IF  THEY  ARE  NOT  EOriAL  , UPDATE 

CUr.RNT 

ARRAY 

1123 

DO  40  I=1,NPH 

« 1 

1143 

DO  40  J=l,2 

1163 

40 

C UR  r.  NT  Cl  * J ) = C r Jr.  NT  2 C I J ) 

- 

1183 

50 

DO  60  I=1,NPH 

1203 

DO  60  J=l,2 

1223 

1243C 

60 

CURNT 1 C I , J»  n =CW.RNTC  I > J> 
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1263C LOOP  FOR  ALL  V;EEKS 

12R3  100  DO  900  IUK=IFIRST, IFINAL 

1303C-  - -FIND  MONTH  FOR  '.-lEEK  IVJK 
1323  K=0 

13^!.?  IF(  ^.?K.LT.M0^?(2,  1 ) )K=1 

1363  DO  103  MNTH=1,13 

13R3  IF( IWK.LT.<M0N(2,MMTH)-K*M0N(2, 1) ) )GOTO  106 

1A03  103  CONTINUE 

1A23  MNTH=14 

1AA3  106  IFCMNTH.EQ. 1 )MNTH=1A 

1A63  MNTH=MON( 1,MNTH-1 ) 

1AR3C LOOP  FOR  ALL  PHASES 

1503  DO  ROO  IPH=1,NPH 

1523  STUDIN=0.0 

15A3  DO  120  I=1,NPTRSI 

1563  IF(MPHASE(I ) .NE.IPH)GO  TO  120 

15R3  IFCIWK.LE.100)G0  TO  110 

1603  STUDIN=PTRSIUOO,  I ) 

1623  GO  TO  130 

16A3  no  STUDIN=PTRSI(n-;K,I  ) 

1663  GO  TO  130 

1683  120  CONTINUE 

1703  130  FL0WIN=0.0 

1723  DO  140  I=1,NPH 

1743  140  FL0WIN=FL0UIN+CURNTl(n2,IX)*XINC(mPH> 

1763  STUDIN=STUDIN  + FLOUIN 

17B3C 

1R03C  **  SECTION  TO  LOAD  THE  15  VARIABLES  FOR  COMPUTATION 

1R23  170  IF(IPHOO.EO.O)GO  TO  1R5 

1R43  DO  180  K=IPHFOO,IPHLOO 

1863  IF(IUPS(K,2) .NE.IPH)GO  TO  180 

1883  DO  175  J=n3 

1903  175  VARBLEC IWPS(K,3>, J)*VALUE(K, J) 

1923  180  CONTINUE 

1943  185  DO  195  IVAR=ni5 

1963  IF(IXSHOK.GT.Nn;PS)GO  TO  195 

1983  IF(IV;PS(IXSHOK>  1 ) .EG  . I WK.AND  . I WPS  Cl  XSHOK,  2 ) .EG  .0  . AND . 

2003  AIUPSCIXSHOK,3>.EQ.IVAR)GO  TO  190 

2023  GO  TO  195 

2043  190  DO  193  J=l,3 

2063  193  VARBLE(IV7PSCIXSH0K,3),J)=VALUE(IXSH0K, J) 

2083  IXSHOK=IXSHOK+1 

2103  195  CONTINUE 

2123  200  DO  250  IVAR=ni5 

2143  IFCIXSHOK.GT.NIUPS)  GO  TO  250 
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\ 

i 

■j 

1 


ni6n  iF(  v.’psc  ixsHo:<,  i ) .fo.iv;k.amd.iwpscixshokj^)  .f/ 

'^1P3  JP,  I"P51(  ) .FP  .IWA^)nO  TO  PPn 

pp.n3  GO  TO  050 

OOP?.  ppn  DO  P.?0  vJ=l,? 

Op/i?  UAPDLFC  I ',;P.SCI':.SH0K,3  ) > J>  =VALnF(  I XSHO’’,  .J) 

00  63  P30  COFTIKOF. 

PP?3  IXSHOX=IXPHOK  + 1 

P303  P50  CONTIN'.'F 

P3P3C0WPLFTFD  CHFCKU^O  FOT  0H0CK3  FOP  THI?  f.TFK/i-HA  ;'.F 


P3/I3 

IF(V.?A;;BLF(  IP,  1 ) .MF.099.9)  GO  TO  3P0 

P363 

VAPHLE  C 1 P , 1 ) =.5TnDI  N 

P 3 H 3 

3P0 

DO  3A0  1=1,3 

PA03 

IFCWAr.DLKC  1/|,  I ) .FF.OOO  .9)G0  TO  370 

PA9.3 

3A0 

COFTINTiy-: 

pA/13 

DO  360  1=1,3 

P/163 

360 

VAPHLEC  lA,  I )=CLn‘-KAI  ( IPH,  I , 1 > 

PA  P 3 

370 

DO  390  1=1,3 

P503 

IFCUADDLECl 5, I ) .FE.999.9)  GO  TO  A50 

P5P? 

300 

COFTIL'UE 

P5A3 

DO  AOO  1=1,3 

P663 

AOO 

VAP.FLFf  15,1)  =CU);:;AI  < IPH,  I ,P) 

PfP'? 

A 50 

DO  A70  1=1, A 

<100  3 

T p(ua^pLE(  I , 1 ) .FiF,  .ooo  .9  5 pO  TO  A 70 

PAP  3 

HAPDLFd  , 1 )=FACT!;i  ( IPH,  I ) 

P6A3 

A70 

COFTINtTF. 

P663 

DO  500  1=5,10 

PAT/? 

II=I-A 

pym 

DO  ARO  J=i,3 

‘■>70  3 

IF(V;A1;BLE(I,  J)  .ijE.999.o)G0  TO  500 

AOO 

COFTINHE 

''763 

DO  AOO  J=l,3 

P7?3 

AOO 

'IAPPLF(  I,.J)=FAGT;‘  PCIiH!,  J,II  ) 

pon? 

500 

CO;  TIFOF. 

orp'^c’i 

‘•Fcr 

••F.''.THEi  P’A'IAPLK 

o."/i? 

DO  5P0  J=l,3 

PPA3 

IFfWAi.PLEf  1 1 ,0)  .;:E.999.9)G0  TO  590 

500 

cor- TI  ^ i!K 

P903 

DO  5P5  J=l,3 

5P5 

HAi  PLFf  1 1 , J)  ='.,’EATHr  ( IPH,  MKTH,  J) 

P9A3n0f.'PLF.TFn  ATTAir-’IFG  VAI.i’FS  FOP  ALL  PAI  IAPLF.5 
00  6?r, 


IPH.AFD 
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S9R3 

590 

CALL  CALCdPH,  17) 

3003 

DO  750  1=1,15 

30P3 

no  750  J=l,3 

30-^13 

750 

UA}^nLE(I,  J)=999.9 

3063 

IFCI8.EC.O)  GO  TO  765 

30  r;  3 

no  760  J=1,I7, 

3103 

VAEPLF  ( M^XCHG  ( I Z ) , J ) =VALtIF ( I XMA7  ( I 7.  ) , J) 

31P3 

760 

COMTINITF 

31/13 

765 

CONTIFOF 

3163 

IF(  I'^.F/'  .1  ) GO  TO  775 

3183 

CniiNTl  (IPH,  1 , 1 )=SL(IPH) 

3P03 

CUPNTl ( IPH,P, 1 )=SO(IPH) 

3RP3 

GO  TO  800 

3P/J3 

775 

Cfll^MTl  (IPH,  1,2)=SLCIPH) 

3263 

CnPNTl (IPH,2,P)=S0CIPH) 

3283 

800 

CONTINUE 

3303 

IX=I7-1 

33  P 3 

IFdX.EO. 0)17=2 

33/13 

no  820  I=1,NPH 

3363 

820 

'•;PITEC"DYNVAL**,END=890)SL(  I ),  5 Od  ),  AT d ) , 

33P3 

P, 

CAI’TILCI,  J),FUTIL.d,  J),  J=1 ,3) 

3/103 

900 

CONTINUE 

3/-P3 

GO  TO  915 

3/1/1 3 C 

- - 

- END  OF  FILE  ON  PYNVAL 

3/163 

890 

iFit:AL=i;;K-i 

3/' 8 3 

pr 1 NT  9 1 0 , 1 F I EG T , I F I NAL 

3503 

910 

FO}'NAT(//"  ♦ * ♦ END  OF  FILE  ENCOUNTEi'ED 

IN 

35P3 

.“I 

BINAPY  FILE:  nYNVAL'V 

35/;  3 

P< 

" THE  FILE  IS  FliLL.  THE  TIME  INTF:uVAL  IS 

CHANGEn."/ 

3563 

P.. 

" THE  NEE  TINE  IMTEPVAL  IS  ”,I3,"  - ",I3,” 

*"///) 

358  3C 

3603 

915 

no  9P0  J=1,NPH 

36  P 3 

DO  920  K=1,P 

3663 

9P0 

CUi'NTPC  J,K)=CUrH'jTl  ( J,K,  17) 

3663 

CHAIN"DYNA/|*" 

368  3 

END 

77 
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37m  Snni'onTIMv  CriX<  IPH>  T''! 

37^’”  not'-vo?'  I r;PTi  S I ^ YPH, LFULST  ,KI  LL,  I r < 3 ) ^ t;PHA;;,F:(  3 ) , 

37.'^3  iFit’A!.,  iFi;5rrP>  iFYAL'’^r-::'5,Fi 

3763  CO^'^iO^  MO'  (P,13) 

373 3 C OKt'O:':  MA t'F  C P 5 , 3 ) , MP LA  C P 5 , 3 ) > F AC  ( P 5 ) > I ”7' ' ( 53 , 3 ) ^ 

330  3 AVALOFC  53,3)#FACTi  1 ( P 5>A  ) ^ FACTP.P  ( P 5 > 3 , r,  ) , OFA  Tp:.  C P 5>  1P> 

33P3  ^CtIPPMTCP5,P),CMr.i'AI  (P5,3^P)  ,YIKC(P5jP6)  ,PT;.SI  < ino,  3), 

33/1 3 .<!:  CT  i:  ;MT  1(P5jP,P),CT  T.t’TP  ( P 5 ^ P ) 

33r,3C 

3.'A"3  COMMON  MAMC:’C(  1 5 l'A’'PLF(  1 5^  3 ),  IYMA"f  1 5)  > 

3^03  AS0CP5) j3LCP5)> AT(P5)^ AUTIL(?5>3 ) ,FUTIL(P5,3 ) 

30P3  t’  = MAC(IPP) 

39/;3  ’’K=VArBLF(P>  1 ) 

3963  3 0(1 PH  > =VAPPLF (13,1) 

3C-.  r-  3 I F ( V AP  D LE  ( 1 3 , 1 ) . FF:  . o 9 9 . 9 ) C 0 T 0 670 

/'003C 

/I0P3C-  - compote  onTPOT  F-  OK  3 FrOATIOi'IS 

A0/i3  .SOI  = (UAl'nLE(  IP,  1 ) +CnPMT  1 ( I PH,  1 , T'  ))/•..■!( 

/'OA3  sop  = inonoo. 

/|0;’3  IFC'.E"  .0)00  TO  650 

/M03  DO  6/10  IT  = 1,K 

A 1 P3  ''P  = ( ( 0X.:'-LE  ( 1 /! , IT  ) *\6APPLF  ( 9 , I T ) ) 

A 1/1 3 A=:-:\LA'  PLF(5,IT)*VA.':DLE(3,  1 )+VArBl.E(  1 1 , IT)  ) /V7ArDLE(  7,  I T) 

/II  63  V3=  (UAFBLE(  1 5,  IT):M;apBLE(  10,  I T ) *UAP.BLF ( 6,  IT ) 

/’1P3  iV*HAi;PLE(3,  1 )+<;APPLE(  1 1 , IT)  )/VAHBLE(8,  IT) 

AP03  .30P=AKIK1  (.S0P,>:P,M3) 

/.iPP3  6/i0  COMTINUE 

/'P/I3CHECK  FO;;  MI  MI  MOM  .STHD.  OOTPOT  OF  3 CALC  ML. 

/iP63  650  S0(  IPH)=--AKIH1  (SOI  ,.50P) 

/I'^r'AC 
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4303  070  C0WiTE=( 10.%+( (ALOGIOC 1 .-VARBLEt 1 , 1 ) ) ) 

43B3  ’.’KATn  = l .O-COMBTE 

4343  AT(IPH)='7KATE=!=(CUPNT1  ( I PH>  1 , I v ) +VAPPLE ( IP,  1)  ) 

4303  SL( lPH)=CnPMTl ( IPK, 1 , IX ) +VAPBLEC1 S, 1 ) -S0( I PH ) -AT( I PH ) 

43«3  IF(.‘JL(  IPH)  .GE.O)GO  TO  675 

4403  S0(IPH)=C^^^•T1  (IPH,  l , IXJ+VA-'.BLEC  ip,  1 )-AT(IPH) 

4403  SL(IPH)=0. 

444  3C 

4463  075  DO  6f<0  IT  = 1,3 

4483  AUTILCIPH, IT)=0. 

4503  680  FnTIL(IPH,IT)=0. 

4523  IFCv.EO  .0)G0  TO  700 

4543  VABBLE ( 1 3 , 1) =3  0 ( I PH ) 

4563C 

4583  DO  690  IT=1,N 

4603  AUTI L C I PH, I T ) =VAPBLE (13,1 ) * VAHBLE ( 7, I T ) / 

4623  ^KVAHBLE( 14, IT)*VARBLE(9, IT)*VAHBLE(3, 1 )*VAHBLE( 1 1,  IT) ) 

4643  Ff  IT  I L ( I PH  , I T ) =VARBLF.  ( 8 , I T ) ♦ VAPBLE  (13,1)/ 

4663  '.(VAP.BLE(  15,1T)*VAHBLE(  10,  IT  ) *VARELE(  3 , 1 )*VAPBLE(  1 1 , IT)  ) 

4683  690  CONTINUE 

4703  700  PETUT'NtFND 


VI . PROGRAM  DYNA4 


PROGRAM  DESCRIPTION 


6.1  The  purpose  of  program  DYNA4  is  to  print  the  student  load,  student 
output,  attrites,  and  aircraft  and  instructor  utilization  calculated  in  DYNA3. 

6.2  Upon  entry,  the  user  is  given  the  option  to  print  the  results  of  the 
calculations  by  phase  for  a given  time  Interval.  If  phase  output  is  desired, 
he  is  given  the  option  to  print  the  results  for  all  phases.  Variable  IFLG  is  set 
to  1 if  all  phases  are  desired, and  IFLG  is  set  to  zero  if  all  phases  are  not 
desired.  If  the  user  does  not  want  the  results  for  all  phases  printed,  he  enters 
only  the  numbers  of  the  phases  to  be  printed.  These  phase  numbers  are  stored 
in  array  NPHZ . 

6.3  Next,  the  user  is  requested  to  enter  the  number  of  weeks  to  be  aver- 
aged together  (e.g. , he  can  average  the  entire  projection  range  or  groups  of 
weeks  within  the  range).  The  entry  is  stored  in  variable  JWKS.  Then  the  time 
Interval  to  be  printed  is  entered.  It  must  be  within  the  current  projection  range, 
and  is  stored  in  variables  IRl  and  IR2 . 

6.4  The  program  then  reads  the  file  DYNVAL  containing  the  results  of  the 
weekly  student  flow  calculations , for  all  the  phases  and  weeks  requested. 

When  IFLG  = 1,  the  program  loops  for  all  phases.  If  IFLG  = 0,  the  array  NPHZ 
is  checked  to  identify  the  phase  numbers . The  weekly  data  is  aggregated 
according  to  the  value  of  the  variable  JWKS.  For  JWKS  = 1,  the  calculations 
for  the  weeks  are  printed  individually  by  phase.  For  JWKS  > 1,  they  are  accum- 
ulated by  week  until  the  variable  L,  which  is  updated  after  each  read,  is 
equal  to  JWKS,  indicating  sufficient  data  have  been  read.  The  average  is  then 
calculated  and  printed.  This  process  is  repeated  for  all  weekly  groupings 
within  the  week  range  and  for  all  desired  phases. 


HacsDiio 


in 


6.5  When  the  process  is  finished,  the  user  is  requested  to  enter  another 
time  interval  (week  range)  for  printing,  and  the  program  recycles  for  the  new 
range,  keeping  the  same  selection  of  phases  and  the  same  number  of  weeks 
to  be  averaged  together.  An  entry  of  (0,0)  indicates  no  further  time  intervals 
are  desired.  The  program  returns  to  the  initial  option  of  printing  the  output 
by  phase. 


6.7  If  the  user  does  not  want  phase  output,  then  he  has  the  option  of 
printing  the  weekly  results  by  time  periods  for  a group  of  phases  (i.e. , the 
time  output).  If  a yes  response  is  given  to  this  option,  a process  similar  to 
that  of  printing  by  phase  is  used  to  print  the  desired  values.  The  process  is 
not  entirely  the  same.  When  the  results  are  printed,  the  program  returns  to 
the  question  which  asks  if  time  output  is  desired.  This  differs  from  the  phase 
output  section  where  the  user  can  select  a different  time  interval  for  additional 
output. 


6.8  A no  response  to  the  time  output  option  indicates  no  further  printing 
is  required,  and  control  is  transferred  to  DYNAl. 
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TABLE  16 

PROGRAM  DYNA4  VARIABLE  DICTIONARY 


Location 

Variable 

Name 

Dimension 

Description 

DYNA4 

NPHZ 

25 

Stores  user  input  to  be 
printed  for  the  phase 

DYNA4 

PHZVAL 

9 

Used  to  read  the  nine  stu- 
dent flow  calculations  from 
file  DYNVAL 

DYNA4 

VALS 

9 

Used  to  accumulate  the 
average  of  the  nine  student 
flow  calculations  for  weekly 
grouping  greater  than  1 

DYNA4 

IFLG 

1 

Print  switch:  IFLG  = 1:  print 
all  phases;  IFLG  = 0:  do  not 
print  all  phases 

DYNA4 

JWKS 

1 

User  input  of  week  grouping 
to  be  averaged 

DYNA4 

IRl 

1 

First  week  of  printed  range 

DYNA4 

IR2 

1 

Last  week  of  printed  range 

TABLE  17 

DYNA4  PROGRAM  AND  SUBROUTINE  DICTIONARY 


DYNA4 


Prints  student  flow  calculations  by  phase  for  a weekly 
grouping  or  by  weekly  grouping  for  phases 


lO/'C-  - CPniKT  r:ESULTS> 

1P/|  COKKON  IY,EPTi'SI*NPH,LKVLSn>KILL,I5;(3)^MPI'ASE(3),  -J 

1 A /!  1 5^ X ( A ) , I F I n S T , I F I NA. L , I Fn  S T P , I FI' A LP  , IX/  5 , K' I '/'PS  , I/- : 6 ( A ) 

I 1 A/i  C OMi/ON  ^■0^'  ( P , 1 3 ) 

IRA  COI'FOK  NAt-;F(P5*3),NPLA(P5,3),NAC(P5)>I'..'PS(53>3>, 

POA  <Iv-AL!  iE  ( 53 , 3 ) , FACT?  1 C P 5 ^ A ) j FACTPP  ( P 5 , 3 , 6 ) , yFATHP  C P 5,  1 P , 3 > , 

PPA  .'’,cn'.i:F'T(P5,P),CnpPAI  CP5,3^P)^XIFCC?5,P6),PT»..SI  ( ino,3), 

PAA  ACnt.NTi  (S5,g,fi),cn‘'NTP(P5>P) 

; PAAC 

PRA  niMFPPIOK  I'PH/(P5)>PHaUALCP)^PALS(9) 

"'•  3AA  P;  Ilj-l\,"OfJTP'tT  FAY  PF  GPOUPED  PY  PHASES  AID/Oi'.  TIKE  PF;IODS" 

3PA  50  PTaiXr, "PHASE  OnTTA'T  DESI  i.EDCY^K')" 
r-  3AA  CALL  FOYES( 5500,5100) 

! , ‘ 36AC 

3RAC  *:(!  SECTION  TO  nEKEI  ATE  PHASE  OUTPUT  ** 

^ ^ AOA  100  PT  II'jT,"ALL  PHASES  DFGIPED(Y,N)" 

APA  CALL  K0YE.SC£150,5P00) 

/'/'A  150  IFLG=0 

; AAA  PJ  IKT,"EI;TEP  THE  PHASES  YOU  DESIPEC'X)" 

K Ar-!A  P!  I NT,  "PHASE  0 IKDICATES  EID  OF  ALL  IHiASES  DESIi.EP" 

: 50 A li'jpUT,  I-)PH/C1) 

; ‘ 5PA  DO  170  IZ=P,IiPH 

'»•  5AA  155  P.  IE'T  5A7 

5AA  I^PUT,^!PH/.(  IX) 

5R A I F ( K'PHX  ( I /,  ) . EC  . 0 ) GO  TO  P 1 0 

I AOA  IFCKPK.XdX)  .LT.l  .Ol  .HFHXdX)  .GT.MPH)  GO  TO  160  | 

; 6PA  GO  TO  170  I 

AAA  160  PPINT,"UMACCEPTAPLE  PHASE  NUKPF.P  EFTEPED"  j 

66A  GO  TO  155 

6PA  170  COFTINUE  j 

, 7HA  P'  IKT,"ALL  PHASE.';  '•'EPF  EITE’'-ED  AFTE'  II’DICATING  HOT 

* 7PA  ,0.  SO  DE.';ii;Kn"  ; pi?i ft, "-assuming  all  desi/'.ed" 

^ 7/1 A POO  IFLG  = 1 

\ «;  76AU 


\k 


t 


1 


( 


i 

TABLE  18  (Cont) 


784 

804 

824 

844 

864 

884 

904 

924 

944 

964 

984 

1004 

1024C 

1044 

1064 

1084 

1104 

1124 

1144C 

1164 

1184 

1204 

1224 

1244 

1264 

1284 

1304 

1324 

1344 

1364 

1384 

1404 

1424C 


210  PR  1 NT , "AVERAGE  OUTPUT  BY  (XX)  17EEK  GROUPINGS" 

INPUT,  JV7KS 

K=IFINAL  -IFinST+1 

IF(JUKS.LT.l  .OR.Jl^KS.GT.K)  GO  TO  211 
GO  TO  213 

211  PRINT, "UNACCEPTABLE  ENTRY-REENTER" 

GO  TO  210 

213  PRINT  910,IFIRST,IFINAL 

910  FORMATC"  CURRENT  CALCULATED  PROJECTION  RANGE  V/EEKS  ARE  ", 

«I3,"  - ",I3) 

PRINT, "ENTER  PRINTED  '^EK  RANGE  DES IRED(XXX,XXX)" 

215  PRINT, "ENTRY  0,0  IMPLIES  NO  FURTHER  PRINT  RANGES" 

220  INPUT, IR1,IR2 

IFCIP.l  .E0.0.AND.IR2.EQ.0)  GO  TO  50 

IFCIRl .GE.IFIRST.AND.IR2.LE.IFINAL.AND.IR1 .LE.IR2)G0  TO  240 
PR I NT, "INVALID  RANGE  ENTRY-OUTSIDE  PROJ.  RANGE-REENTER" 

GO  TO  220 

240  DO  245  1=1,9 
245  VALS(I)=0. 

IG=0 

DO  400  I=1,NPH 
KX  = 1 

IFdFLG.EQ.l ) GO  TO  260 
DO  250  J=1,IZ 

IFCNPHZC J) .EQ.O)  GO  TO  400 
IF(NPHZ( J) .EQ.l)  GO  TO  260 
250  CONTINUE 
GO  TO  400 
260  L=0 

IG=IG  + 1 


i 


I 

1 
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TABLE  18  (Cont) 


DO  300  J=ini,IR8 

146^1  SET(”DYNVAL")TO  I + ( C J-IFIRST)+NPH) 

14R4  READC"DYNVAL",END=8R0)  (PH?:VAL(K),K=1 ,9) 

1504  L=L  + 1 

1584  NX=MACCI)*8+3 

1S44  DO  870  K=1,N’'' 

1564  UALSCK)=OALS(K)  + PHZUALCK) 

15R4  870  CONTINUE 

1604  IFCL.LT.JI'IKS)  GO  TO  300 

1684  DO  8R0  X=1,NX 

1644  VALS(K)=VALS(K)/JWKS 

1664  880  CONTINUE 

1684  IF(KX.EQ.8)  GO  TO  885 

1704  KX=8 

1784  PRINT  915,CNAME(I,K),K=1,3) 

1744  915  FORMAT(//"  PHASE  ",3M//y 

1764  IF(IG.GT.l)  GO  TO  885 

1784  IF( J.NE.IRl .AND. J.GT. JWK5)  GO  TO  885 

1804  PRINT  980 

1884  980  FORMATC  V.'EEK" , 1 OX, "STUD RX, "STUD  . 'M  8X, 

1 844  A"A I RCRAFT" , 5X, " I NSTR . "/"  PER  I OD", 7X, " ONBOARD" , 6X, 

1864  A"0UTPUT",5X,"ATTRITES", 7X,"UTIL.", 7X,"UTI L."//) 

1884  885  IF( JUKS .EP . 1 ) GO  TO  890 

1904  11=J-JUKS+1 

1984  PRINT  985,1 1,J, (VALS(K),K=1, NX) 

1944  985  FORMAT<"  ",  1 8, 1 8, 6X, F7 . 1 , 8F 1 8 . 1 , 8F 1 8 .8 , 8 ( /F48 .8 , F 18 .8 ) 
196/1  GO  TO  895 

1984  890  PRINT  930, J, ( UALS ( K ) , K= 1 , NX ) 

8004  930  FORMATC"  WEEK  ",  1 8, 5X,F7 . 1 , 8F 1 8 . 1 , 8F 1 8 .8, 8 C /F4R  .8, F 1 8 .8 ) ) 

''08/1  895  DO  898  K=1,N7 

80/1/1  VALS(K)=0. 

8064  898  CONTINUE 

8084  I.=0 

8104  300  CONTINUE 

818/1  DO  380  K=l,9 

81/14  VALS(K)=0. 

816/1  380  CONTINUE 

8184  400  CONTINUE 

8804  Pi’ I NT  931 

8884  931  FORMATC//"  ENTER  ANOTHER  OUTPUT  I NTERVALCXX, XX ) " ) 

8844  GO  TO  815 

8864C 


88 


TABLE  18  (Cont) 


2284C  ♦♦  SECTION  TO  GENERATE  TIME  OUTPUT  *♦ 

230A  500  PRINT#"TIME  OUTPUT  DESIREDCY^N)" 

2324  CALL  N0YES<$890* S520) 

2344  520  PRINT#"ALL  PHASES  DESIRED(Y>N)” 

2364  CALL  N0YES($540#S600) 

2384  540  IFLG=0 

2404  PRINT*"ENTER  THE  PHASES  YOU  DESIRECXX)" 

2424  PRINT#"PHASE  0 INDICATES  END  OF  ALL  PHASES  DESIRED 

2444  INPUT.  NPHZU) 

2464  DO  560  IZ*2#NPH 

2484  545  PRINT  547 

2504  547  FORMAT? ”+NEXT") 

2524  INPUT#NPHZ(IZ) 

2544  IFCNPHZCIZ) .EQ.O)  GO  TO  610 

2564  IF(NPHZCIZ) .LT.l .OR.NPHZ(IZ) .GT.NPH)  GO  TO  550 

2584  GO  TO  560 

2604  550  PRINT#"UNACCEPTABLE  PHASE  NUMBER  ENTERED" 

2624  GO  TO  545 

2644  560  CONTINUE 

2664  PRINT^"ALL  PHASES  WERE  ENTERED  AFTER  INDICATING 

2684  *NOT  SO  DESIRED";  PRINT*"-ASSUMING  ALL  DESIRED" 

2704  600  IFLG*1 

2724C 

2744  610  PRINT#"TIME  PERIOD  INTERVALS  DESIRED-NO.  ITEEKS 

2764  &AVER.  T OGETHER ( XX ) " 

2784  INPUT#  JVmS 

2804  PRINT  910#  I FIRST# I FI NAL 

2824  PRINT#"ENTER  ^lEEK  OUTPUT  RANGE  DESIRED (XXX# XXX)" 

2844  PRINT#"ENTRY  0#0  IMPLIES  NO  FURTHER  OUTPUT  RANGES" 

2864C 

2884  630  INPUT# IR1#IR2 

2904  IFCIRl .EQ.0.AND.IR2.EQ.0)  GO  TO  500 

2924  IFCIRl .GE.IFIRST.AND.IR2.LE.IFINAL.AND.IR1 .LE.IR2) 

2944  *G0  TO  650 

2964  PRINT#"**  INVALID  RANGE  ENTRY-ENTER  AGAIN" 

2984  GO  TO  630 

3004C 


TABLE  18  (Cont) 


30S4 

650 

DO  655  1=1,9 

3044 

VALSCI )=0. 

3064 

655 

COWTIWIF. 

3034 

DO  850  I=IHl,in2, 

3104 

K=I+JVJKS-1 

3124 

IFCK.GT.IR2)  K = Ifi2 

3144 

PRINT  935, I, K 

3164 

935 

FORMAT <//"  WEEKS  ’',13,"  TO  ",I3//> 

3184 

IF(1 .NE.IRl)  GO  TO  658 

3204 

PRINT  940 

3224 

940 

FORMAT  TRAIMIMG",6X,"STTTD.",RX,"STITD.",  18X, 

3244 

e”AIRCRAFT",5X,"INSTR  PHASE”,  8X, ’'ONBOARD",  6X, 

3264 

^’'OUTPUT'S  5X>"ATTniTES'S  7X>"UTIL.",  7X,"tJTIL."//) 

3284C 

3304 

658 

DO  800  J=1,NPH 

3324 

IFCIFLG.EO.l)  GO  TO  670 

3344 

DO  660  K=1,IX 

3364 

IF(NPHX(K) .EO.O)  GO  TO  800 

3384 

IFCNPHXCK) .EO . J)  GO  TO  670 

3404 

660 

CONTINUE 

3424 

GO  TO  800 

3444 

670 

DO  700  K=1,JWKS 

3464 

SET<"DYNVAL")T0  J+(  ( I -IFIRST+K-1  )=t=NPH) 

3484 

READC "DYNVAL” , END=880 ) ( PHXVALt  L5 , L= 1 , 9 ) 

3504 

NX=NAC( J)+2+3 

3524 

DO  680  M=1,NX 

3544 

VALS ( M ) =V ALS ( M ) +PHX  V AL ( M ) 

3564 

680 

CONTINUE 

3584 

IFCI+K.GE.IR2+1 )G0  TO  710 

3604 

700 

CONTINUE 

3624 

710 

DO  715  M=1,NX 

3644 

UALS  < M ) =VAL5 ( M ) /K 

3664 

715 

CONTINUE 

3684 

PRINT  945, (NAMEC J,M),M=1,3), (VALSCL),L=1,NX) 

3704 

945 

FORMAT ("  ",3A4,F7.1,2F12. 1 ,2F12.2,2(/F48.2,F12.2) 

3724 

DO  720  M=l,9 

3744 

VALS(M)=0. 

3764 

720 

CONTINUE 

3784 

800 

CONTINUE 

3804 

850 

CONTINUE 

3824 

GO  TO  500 

3844 

880 

PRINT,”**  READING  BEYOND  END  OF  FILE” 

3864 

890 

CHAIN”DYNA1*” 

3884 

END 

90 


TABLE  18  (Com) 
a.  Subroutine  NOYES 


3904 

3924 

3944 

3964 

3984 

4004 

4024 

4044 


SUBROUTINE  NOYES (♦>♦) 

ALPHA  N 
10  INPUT*N 

1 F ( N . EQ . "N” ) RETURN 1 

IF(N.EQ.”Y">RETURN2 

PR I NT#” INVALID  REPLY  - RETYPE” 

60  TO  10 

END 
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VII.  PROGRAM  DYNA5 


PROGRAM  DESCRIPTION 

7.1  The  purpose  of  DYNA5  is  to  set  up  the  common  area  storage  and  generate 
the  necessary  data  for  entry  into  the  Static  IFRS  model  at  program  LSR4. 

7.2  Upon  entry,  the  shocked  variables  are  checked.  If  any  apply  to  the 
selected  week,  subroutine  SETUP  is  called  to  store  the  value  of  the  shock  in 
the  appropriate  common  array. 

7.3  Next,  file  DYNVAL  is  read  for  the  student  load,  output,  and  aircraft 
and  instructor  utilization  for  all  phases  in  the  selected  week.  The  student 
output  for  the  week  is  converted  to  annual  output  by  multiplying  by  50. 

Subroutine  COMMl  is  then  called  to  read  file  DYNCOM  for  additional  planning 
factors.  Upon  return  the  number  of  phases  and  the  training  system  number 
(pilot  or  NFO)  are  written  on  the  first  line  of  LSROUT  file.  Next,  subroutine 
GENLSRD  is  called  in  a loop  for  each  phase  (it  performs  the  same  function  as 
subroutine  GENLSR  in  the  Static  IFRS  program  LSR3).  After  the  loop  is  com- 
pleted subroutine  COMM2  is  called  to  set  up  the  common  area  for  program 
LSR4.  Then  control  is  transferred  to  LSR4. 

SUBROUTINE  SETUP 

7.4  The  purpose  of  subroutine  SETUP  is  to  replace  the  standard  planning 
factors  stored  in  common  by  the  value  of  the  shocked  planning  factor  for  use  in 
subroutine  GENLSRD  and  the  Static  IFRS  programs.  Upon  entry,  checks  are  made 
on  the  shock  variable  access  number.  Then  the  value  of  the  shock  is  put  into 
the  correct  common  array  for  the  proper  phase. 
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1 


SUBROUTINE  COMMl 


7.5  The  purpose  of  subroutine  COMMl  is  to  read  data  used  in  subroutine 

GENLSRD  from  file  DYNCOM.  Upon  entry,  file  DYNCOM  is  opened  and  the  data  ^ 

’ are  read.  The  data  are  saved  in  common.  The  file  is  closed  and  control  is 

returned  to  the  calling  program . 

SUBROUTINE  GENLSRD 

7.6  Subroutine  GENLSRD  generates  LSR  summary  statements  for  a phase  of 
training.  Upon  entry,  the  LSR  output  data  are  initialized.  A test  is  made  to 
determine  whether  the  training  phase  contains  flight  instruction.  If  flight 

training  is  included  in  the  phase,  the  number  of  aircraft,  landing  support  officers,  * 

gallons  of  fuel  consumed,  flight  instructors,  flight  instructors  under  training, 
and  enlisted  support  personnel  are  computed.  Enlisted  support  personnel  require- 
ments are  then  increased  to  include  administrative  enlisted  personnel.  The 
number  of  administrative  officers  is  then  computed  from  the  total  number  of 
• phase  personnel. 

7.7  After  all  computations  for  the  phase  are  completed, the  results  are  written 
on  data  file  LSROUT.  If  ISW  = 1 , which  is  carried  in  common,  a summary  of  the 
support  requirements  for  the  phase  is  printed.  If  ISW  = 0,  no  phase  summary  is 
printed.  Then  control  is  transferred  to  the  calling  program. 

7.8  Subroutine  GENLSRD  is  a modified  version  of  subroutine  GENLSR  in 

t i program  LSR3  of  the  Static  IFRS  model.  For  a full  description  and  explanation  of 

the  variable  names,  the  user  should  see  the  Static  IFRS  programmer's  manual. 

j SUBROUTINE  COMM2 


7.9  The  purpose  of  subroutine  GOMM2  is  to  set  up  the  common  area  of 
storage  to  ensure  that  it  is  compatible  for  a transfer  to  program  LSR4  (Static 
IFRS). 

' 7 .10  Upon  entry,  parameters  used  in  Static  IFRS  are  set  (i.e. , number  of 

phases,  level  of  complexity,  etc.).  Next  the  file  DYNCOM  is  read  for  phase 
^ names,  aircraft  names,  and  the  number  of  aircraft  types  per  phase.  These  values 

i , are  stored  in  the  common  area.  Control  is  then  returned  to  DYNA5. 


d.  Subroutine  SETUP 


! I 


TABLE  1 9 

PROGRAM  DYNA5  VARIABLE  DICTIONARY* 


Location 

Variable 

Name 

Dimension 

Description 

Common 

lY 

1 

Week  to  be  analyzed  in  Static  IFRS 

Common 

SPI 

25,3,12 

Equivalent  to  common  variable  weather 

DYNA5 

SX 

5 

Annual  student  output  for  phase  I 

DYNA5 

ISK 

1 

Shock  variable  number 

DYNA5 

IPH 

1 

Phase  number 

* All  other  common  variables  not  mentioned  above  and  not  described  in  the 
other  Dynamic  IFRS  programs  are  described  in  the  Static  IFRS  programmer' s 
manual. 


TABLE  20 

DYNA5  PROGRAM  AND  SUBROUTINE  DICTIONARY 


DYNA5 

Provides  the  program  linkage  for  setting  up  common  storage 
and  generating  the  necessary  data  for  entry  into  Static  IFRS 
program  LSR4 

COMMl 

Reads  file  DYNCOM  for  data  used  in  subroutine  GENLSRD 
calculations 

COMM2 

Sets  up  data  for  entry  into  program  LSR4 

GENLSRD 

Develops  LSR  output  data 

SETUP 

Records  value  of  shock  variable  into  proper  array 

98 


TABLE  21 

PROGRAM  DYNA5  LISTING 


105C- 

- 

125 

145 

165 

185 

205 

225 

245 

265C 

- - 

285 

305 

102 

315 

325 

345 

365 

385C 

- - 

405 

425 

445C 

- - 

455 

104 

465 

485 

505 

106 

525 

545C- 

- 

565 

10 

585 

15 

605 

625 

645 

665 

68  5C 

- - 

705 

30 

725 

745 

PROGRAM:  DYNA5 

COMMON  IY#ISW*NPH>LEVLSR*KILL* IS< 10)*NX( 10)*M0N(2#13> 
COMMON  NAME(25#3)#NPLAC25*3)#NAC(25)#I WPS(53>3), 
«VALUE(53>3)>FACTR1 C25# A ) »FACTR2C25, 3# 6 ) * SPl C25* 3,  1 2 ) * 
ASO(25>*SL(25),CURRAI(25*3»2> 

FILENAME  T1 
DIMENSION  SX(25) 

NIWPS*NXC6) 

FIND  SHOCKS  FOR  ALL  WEEKS  ALL  PHASES 
J=0 

J=J+1  ; IFC J.GT.NI WPS)GO  TO  10 
1F(IWPS< 1 ).GT.IY)GO  TO  10 

IF(<IWPS<J#1 ).NE.0>.AND.(1WPS(J#2).NE.0>>G0  TO  10 
ISKalWPSC J»3) 

IFdWPSt  J*2)  .EQ.OIGO  TO  104 
FOUND  SHOCK  FOR  ALL  WEEKS 
1PH=IWPS( J»2) 

CALL  SETUPC J.IPH,ISK,$102) 

FOUND  SHOCK  FOR  ALL  PHASES 
IF(IWPS( J>1 ) .NE.IYIGO  TO  102 
DO  106  I=1,NPH 
CALL  SETUPC J>I>ISK^$106) 

CONTINUE 
GO  TO  102 

FIND  ALL  SHOCKED  VALUES  FOR  WEEK  lY. 

J»0 

J*J+1 

IFC J.GT.NIWPSIGO  TO  108 
IFCIWPSC J#n.EQ.IY)GO  TO  30 
IFCIWPSC J*1 ).GT.IY)GO  TO  108 
GO  TO  15 

FOUND  A SHOCK  FOR  WEEK  lY 
IPH-IWPSC J>2) 

1SK»IWPS< J#3) 

CALL  SETUPC J«IPH«ISK»S15> 


TABLE  21  (Cont) 


765  lOB  T1="DYNVAL” 

7B5  OPENFILE  T1 

BOS  K=NPH*(IY-NX(n>  + l 

825  SEKTl  )T0  K 

845  DO  110  I=1,NPH 

865  READdl  >SL<  I ),S0(  I ) , X*  ( FACTR2  ( I , J,  1 ) , FACTR2  ( I , 2 ) , J = 1 , 3 ) 

885  S0< I )=50 .*SOCI ) 

905  110  SX(I)=SOCI) 

925  CLOSEFILE  T1 

945C 

965  CALL  COMMl 

985  OPENFILE  •*LSROUT" 

1005  REWIND  "LSROUT" 

1025  WR I TE ( "LSROUT" , 700 ) NPH , I S < 2 ) , DAT ( X ) 

1045  IC=1000 

1065  IF< ISW.EC.l )PRINT  720^1Y 

10P5C 

1105  DO  130  IPH=1,NPH 

1125  130  CALL  GENLSRDC IPH, IC  ) 

1145  IF( ISW.EQ . 1 )PRINT>"  " 

1165  CLOSEFILE"LSROUT" 

1185C 

1205  L=NPH 

1225  K=IS<2> 

1245  CALL  C0MM2(K,L#SX) 

1265  CHAIN"XLSR4*" 

1285  700  F0RMAT("1000  " , 2 1 3> 5Xj "DYNAMI C IFRS  ",A8) 

1305  720  FORMAT  (/"  SUMMARY  FOR  1^EEK",I3*"  APPLIED  FOR  50  WEEKS"/ 

1325  A/14X," AIRCRAFT GALS  --STUDENT  --  TOTAL" 

1345  A/"  PHASE  NAME  " 

1365  A, "TYPE  NUMB  FUEL  (1000)  OUTPUT  LOAD  OFF  ENL" ) 


TABLE  21  (Cont) 
a.  Subroutine  COMMl 


1405 

1425 

1445 

1465 

1485 

1505 

1525 

1545 

1565 

1585 

1605C- 

1625 

1645 

1665 

1685C- 

1705 

1725 

1745C- 

1765 

1785 

1805 

1825 

1845 

1865C- 

1885 

1905 

1925 

1945 

1965 

1985 

2005 

2025 

2045 

2065 


SUBROUTINE  COMMl 

COMMON  IY,ISW*NPH#LEVLSR*KILL#IS<  10)*NXU0>#M0N(2,  13) 
COMMON  NAME(25#3)*NPLA<25#3)#NAC(25)*IWPS(53*3)* 
*VALUE(53#3)*FACTR1 (25>4),FACTR2<25*3* 6)j 
«NFUELC25>3)*T0D<25)* WX<25#3>*GAS(25#3># 
*FTR(25,3)jFS0<25#3)>AM0(25»3),ASH(25^3)*SP2(25* 14), 
*S0(25),SL(25),CURRAI(25,3,2) 

FILENAME  T1 
T1»"DYNC0M" 

OPENFILE  T1 

- -READ  NFUEL 

SEKTDTO  10 
DO  10  1=1,3 

10  READCTl )(NFUEL( J,I ),J*1,25) 

- -READ  TOD 

SETITDTO  18 

READCTl )CTOD( J), J=l,25) 

- -READ  VfEATHER  A GAS 

SET(T1 )T0  21 
DO  20  1=1,3 

20  READtTl  )(VDC(  J,I),  J=l,25) 

DO  25  1=1,3 

25  READfTl )(GAS( J,I ), J=l,25) 

- -READ  FTR,FSO,AMO,ASH 

SETtTDTO  39 
DO  30  1=1,3 

30  READ(T1)(FTR(J,I),J=1,25) 

DO  35  1=1,3 

35  READ(T1 )<FSO< J,I ), J=l,25) 

DO  40  1=1,3 

40  READCTl )CAMOCJ,I ), J=l,25) 

DO  45  1=1,3 

45  READ(T1 )(ASH( J,I ), J=l,25) 
return; END 


b 


TABLE  21  (Cont) 
Subroutine  COMM2 


2085 

2105C- 

2125 

2145 

2165 

2185 

2205 

2225C 

2245 

2265 

2285 

2305 

2325 

2345 

2365 

2385 

2405 

2425 

2445 

2465 

2485 

2505 

2525 

2545C 

2565 

2585 

2605 

2625 

2645 

2665 

2685 

2705 

2725 

2745 

2765 


SUBROUTINE  C0MM2 ( K, SX ) 

- - SETS  UP  COMMON  FOR  LSR4 
COMMON  lY* ISWTCHf 10) 

COMMON  NAME(25>3)*NPLA(25*3)»DUM1 (25*9)> 
&NAC(25)>DUM2<25, 10), SP2< 25*27 )>SP3< 25*9) 

COMMON  ICOMMA* IBLANK*NO*NYES*NY*NPH* IER*LEVLSR* IPH* WPY* 
«AFD*KILL*I ID*FID*KILLS(25)*SI (25)*S0(25) 

ALPHA  ICOMMA* IBLANK*N0*NYES 
FILENAME  T1 
DIMENSION  SX(25) 

IY=0 

ISWTCH(5)=K 
DO  10  I=1*L 
10  S0(I)=SX(I) 

NPH=L 

LEVLSR=4 

AFD=250. 

WPY =50. 

ICOMMA="*" 

IBLANK=" 

N0="N" 

NYES="Y” 

T1 =”DYNCOM" 

OPENFILE  T1 
SET(T1 )T0  4 
DO  50  1=1*3 

50  READ(T1 )<NAME( J* I )* J=l*25) 

DO  60  1=1*3 

60  READtTl )<NPLA( J*I )* J=l*25) 

SETCTDTO  19 

READ(T1  XNACC  J)*  J=1  *25) 

CLOSEFILE  T1 
return; END 


z 


TABLE  21  (Cont) 
c.  Subroutine  GENLSRD 


2785 

2805 

2825 

2845 

2865 

2885 

2905 

2925 

2945 

2965 

2985 

3005 

3025 

3045 

3065 

3085 

3105 

3125 

3145 

3165 

3185 

3205 

3225 

3245 

3265 

3285 

3305 

3325 

334  5C 

3365 

3385 

3405 

3425 

3445 

3465 

3485 

3505 

3525 

3545 

3565 

3585C 


SUBROUTINE  GENLSRDt IPH, IC ) 

COMMON  IY#ISW,NPH>LEVLSR>KILL,IS< 10)*NX( 10),M0N(2, 13) 
COMMON  NAMEC25*3)#NPLA(25*3)jNAC(25)> I WPSf 53,3)^ 
*VALUE<53#3)*FACTR1 (25,4),AU(25#3)#SFH(25,3)»DUM3(25, 12), 
*NFUEL( 25,3), TOD( 25 ),WX(25,3), GAS (25,3), 
*FTR(25,3),FS0(25,3),AM0(25,3),ASH<25,3),SP2(25, 14), 
*S0(25),SL(25),CURRAI(25,3,2) 

COMMON  IACT(3),IAFT(3),IAIN(3),BF(3),FIT(3),FI(3), 
*FLS0(3),EM(3),AIT(3),ACN0(3),AI(3) 

DIMENSION  U(3) 

ALPHA  1ACT,IAFT,NPLA,NFUEL 

EMT»0.0 

SI=0. 

DO  10  1=1,3 
IACT(I)=" 

IAFT(I)=" 

BF(I )=0.0 
FIT(I )«0.0 
FI ( I )=0.0 
FLSOd  )«0.0 
EM(I )=0.0 
AITCI)=0.0 
ACNOd  )=0.0 

Ud  )=AUdPH,I  )*WXdPH,I  )*FACTR1  dPH,3)*50. 

10  AI ( I )=0.0 
SOUT=SOdPH) 

N=NACdPH) 

IF(N)120, 120,20 

20  DO  30  1=1, N 

I ACTd  ) =NPLAdPH,  I ) 

ACNO< I ) =CURRAI (I PH, I , 1 ) 

IF(FSO( IPH,I ) )28,28,24 
24  FLSOd  )=SLdPH)/FSOdPH,I  ) 

28  lAFTd  )=NFUELdPH,I  ) 

BFd  )=SOUT*GASdPH,I  )*SFHdPH,I  ) 

FI d ) =CURRAI d PH, I , 2 ) 

EMC  I )=ACNO(  I )*AMOdPH,I  ) 

EMT=EMT+EMC  I ) 

30  FITd  )=FId  )*FTRdPH,I)/TODdPH) 
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TABLE  21  (Com) 
c.  Subroutine  GENLSRD  (Cont) 


3605 

FACT=1 .2 

3625 

IF(EMT-200. )70>50>40 

3645 

40 

I Ft EMT-400. ) 50^60^60 

3665 

50 

FACT=1 .15 

3685 

GO  TO  70 

3705 

60 

FACT=1 .10 

3725 

70 

EMT=FACT*EMT 

3745 

120 

T0FF=0 .0 

3765 

DO  140  1=1*3 

3785 

140 

TOFF=TOFF+AI ( I) +A1 T t I ) +FI ( I )+FIT( I )+FLSO( I 

3805 

TSP=T0FF+EMT+SL(IPH) 

3825 

IF<TSP-560.0M42*  142*  144 

3845 

142 

AM=0.0303571*TSP 

3865 

GO  TO  148 

3885 

144 

IF(TSP-1260.0)146* 146*  147 

3905 

146 

AM=7.4  + 0.0171428+TSP 

3925 

GO  TO  148 

3945 

147 

AM=17.8833  + 0 .0088235*TSP 

3965 

148 

TOFF=TOFF+AM 

3985C 

4005 

IC=IC+5 

4025 

WRITEfLSR0UT*’*719>IC*(NAME(IPH*  J)*  J=1  *3)*! 

4045 

IC=IC+5 

4065 

WR I TEt "LSROUT" * 720 ) I C * S I * SOUT  * SLt I PH ) * TOFF 

4085 

IC=IC+5 

4105 

WRITEf”LSR0UT"*722)IC*IACT* I AFT 

4125 

IC=IC+5 

4145 

WRI TE  ( ••LSROUT”*  723  ) I C * ACNO 

4165 

IC=IC+5 

4185 

WRI TEt '‘LSROUT"*  723)  I C*BF 

4205 

IC=IC+5 

4225 

WRITE("LSR0UT"*723)IC*(ASH(IPH* J)* J=l*3) 

4245 

IC=IC+5 

4265 

WRITE("LSR0UT"*723)IC*U 

4285 

IFtlSW.EQ.ORETURN 

104 


TABLE  21  (Cont) 
c.  Subroutine  GENLSRD  (Cont) 


4305 

4325 

4345 

4365 

4385 

4405 

4425 

444  5C 

4465 

4485 

4505 

4525 

4545 

4565 

4585 


DO  180  1=1,3 
180  BF(n«BF(I)/1000. 

PRINT  700,(NAME(IPH,J), J»1#3>#IACT(1 ),ACN0( 1),IAFT( 1) 

*BF( 1 ),SOUT#SL(IPH),TOFF,EMT 
IFtN.LE.l IRETURN 
DO  200  I«2,N 

200  PRINT  710,IACT(I),ACN0<I),IAFT(I),BF(I) 

700  F0RMAT(1X,3A4,1X,A4,#F6.1,1X#A4,1X#F6.1,4F7.1) 

710  FORMATt 14X,A4,F6.1, 1X,A4, 1X,F6.1 ) | 

719  F0RMAT(I4, 1X,3A4,I3)  3 

720  F0RMAT(I4,1X,5E13.6)  I 

722  F0RMAT(I4,1X,6A4)  | 

723  F0RMAT(I4, 1X,3E13.6)  I 

return; END  I 

I 


! i 

: M 
hi 


^ V 

I 


£ 

Cl 


TABLE  21  (Cont) 

d.  Subroutine  SETUP 

5005 

SUBROUTINE  SETUPf J, IPH* ISKT,*) 

— 

5025 

COMMON  IY,ISW#NPH,LEVLSR^KILL,IS( 10)*NX( 10)#M0N(2, 13) 

5045 

COMMON  NAMEC25*3)#NPLA(25#3)^NAC(25),I WPS( 53,3), 

5065 

*VALUEC53,3),FACTR1 C25,4),FACTR2(25,3,6),SP1 (25,3, 12), 

5085 

*S 0( 25 ),SL( 25 ),CURRAI (25,3,2) 

5105 

ISK=ISKT 

5125 

IF(ISK.GE.5)G0  TO  40 

5145 

FACTRl (IPH,ISK)=VALUE( J, 1 ) 

i 

■A 

5165 

RETURNl 

5185 

40 

IF(ISK.GE.12)G0  TO  50 

T 

5205 

lSK=ISK-5 

J 

5225 

DO  45  1=1,3 

5245 

45 

FACTR2(IPH,I,ISK)=VALUE( J, I ) 

5265 

RETURNl 

1 

5285 

50 

IF(ISK.LE.13)RETURN1 

1 

5305 

ISK=ISK-13 

5325 

DO  55  1=1,3 

1 

5345 

55 

CURRAI(IPH,I,ISK)=VALUE( J,I ) 

1 

5365 

RETURNl 

5385 

END 

atm 

!? 


I 

I 

I 


1 

A 


VIII.  PROGRAM  WASRX 


I PROGRAM  DESCRIPTION 

8.1  Program  WASRX  has  two  purposes  . First  it  is  a utility  program  to 
I update  the  Weekly  Aviation  Statistical  Report  (WASR)  data  and  weekly  student 

" input  data  saved  in  file  WASRFILE . Second,  it  is  used  in  the  data  initializa- 

tion part  of  a dynamic  IFRS  run  to  place  WASR  data  into  the  file  DYNCOM. 

I 8.2  Upon  entry  the  program  determines  if  it  is  an  update  run  by  testing 

variable  IS(7).  If  IS(7)  = 0,  it  is  an  update  run  (i.e.,  the  user  has  called 
. I WASRX  and  run  it  at  the  terminal).  If  IS (7)  ^ 0,  the  program  has  been  called 

I I by  program  DYNAM  in  a dynamic  IFRS  run.  In  an  update  run,  the  program 

calls  subroutine  NEWENTRY  to  read  the  proper  training  phase  names  and  air- 
I craft  types.  Upon  return,  the  user  may  have  data  entering  instructions  printed. 

I Then  the  data  are  entered. 


h 

w 

t . 


t 


I 

* 

A. 


1 

I 
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8.3  If  it  is  not  an  update  run,  subroutine  OLDENTRY  is  called  to  let  the 
user  accept  the  stored  data  on  WASRFILE  or  enter  all  new  data.  If  the  user 
accepts  the  data  in  the  file  upon  return  from  OLDENTRY,  he  is  given  the  option 
to  list  and  change  the  data  for  use  by  the  dynamic  simulation  programs . If 
the  user  does  not  accept  the  data  in  the  file,  all  new  data  must  be  entered. 
When  the  level  of  complexity  is  1 , no  option  to  print  instructions  is  given. 

8.4  Data  are  entered  for  each  phase  after  the  phase  name  and  the  aircraft 
types  have  been  printed.  Before  the  data  are  entered,  the  program  determines 
the  number  of  values  to  be  entered  based  on  the  number  of  aircraft  types.  After 
the  data  for  the  phase  are  entered,  subroutine  VALUE  is  called  to  validate  the 
values.  This  procedure  continues  until  all  phases  have  been  considered. 

8.5  Following  this,  the  option  to  make  corrections  is  given.  If  this  option 
is  taken,  the  user  will  enter  the  phase  numbers  he  wants  to  correct  and  then 
the  data  values.  Subroutine  VALUE  is  again  called  to  validate  the  data.  The 
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user  is  then  requested  to  enter  the  next  phase  number^and  this  process  con- 
tinues until  he  enters  a zero  for  the  phase  number  implying  no  further  corrections 
or  entries.  Next,  the  user  has  the  option  to  print  the  data.  If  this  option  is 
taken,  the  data  are  listed  for  all  phases.  After  the  print  and  correction  options 
have  been  skipped,  subroutine  SWTCH  is  called. 

8.6  Upon  return,  a test  is  again  made  on  IS (7).  For  IS (7)  = 0,  implying 
update  of  the  file  WASRFILE,  subroutine  UPDATE  is  called.  When  control 
returns,  the  program  terminates.  For  IS (7)  ^ 0,  implying  entry  from  program 
DYNAM,  data  are  written  on  the  file  DYNCOM  and  control  is  transferred  to 
program  PTRSl . 

SUBROUTINE  NEWENTRY 

8.7  The  purpose  of  subroutine  NEWENTRY  is  to  read  the  proper  file  for 
phase  names,  aircraft  names,  and  the  number  of  aircraft  per  phase. 

8.8  Upon  entry,  the  user  is  requested  to  enter  the  training  system  (stu- 
dent flow)  type  (i.e.  , pilot,  NFO) . For  pilots,  the  file  BASCAS  is  opened, 
and  for  NFOs,  the  file  NFOBASCA  is  opened.  The  program  then  proceeds  to 
read  the  data  from  the  proper  files . 

SUBROUTINE  OLDENTRY 

8.9  The  purpose  of  subroutine  OLDENTRY  is  to  read  the  data  file  WASRFILE 
for  a dynamic  IFRS  run.  Upon  entry,  the  read  pointer  is  set  to  that  part  of  the 
file  cr.itaining  the  appropriate  training  system  data  (pilot  or  NFO).  The  title 
of  the  file  is  then  read  and  printed.  Next,  the  user  is  given  the  option  of 
using  the  data  in  the  file.  If  this  option  is  not  taken,  control  returns  to  the 
main  program.  If  it  is  taken,  the  appropriate  file  is  read.  Subroutine  SWTCH 
is  then  called.  Upon  return,  control  is  transferred  to  the  main  program. 

SUBROUTINE  VALUE 

8.10  The  purpose  of  subroutine  VALUE  is  to  validate  the  values  entered  by 
the  user  and  to  store  the  values  in  array  WASR. 

8.11  Upon  entry  the  phase  number  is  validated.  If  any  zero  values  for 
the  number  of  aircraft  or  instructors  are  entered,  the  zero  is  replaced  by  a 
small  positive  number  to  avoid  any  division  by  zero  when  calculating  student 
flow.  The  values  are  then  stored  in  the  array  WASR  and  control  is  returned  to 
the  calling  program. 

SUBROUTINE  UPDATE 

8.12  The  purpose  of  subroutine  UPDATE  is  to  permanently  update  the  data 
file  WASRFILE. 
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8.13  Upon  entry  the  message  is  printed  indicating  this  is  an  update  run. 

Then  the  user  is  reguested  to  enter  a title  for  the  file.  Next,  a check  is  made 
to  determine  the  student  flow  type,  and  the  file  pointer  is  set  to  the  proper  area 
in  the  file.  The  Weekly  Aviation  Statistical  Report  data  just  entered  are  then 
written  on  the  file  WASRFILE  along  with  the  title  and  time  and  date.  The  user 
is  then  given  the  option  to  update  the  weekly  student  input  by  1 week  (i.e.  , 
first  week  has  passed).  If  this  option  is  taken,  the  program  advances  the 
student  input  for  each  week  by  a week  (i.e. , after  the  update,  week  1 contains 
the  values  previously  stored  in  week  2,  etc.)  .The  time  and  date  of  the  update 
are  written  on  the  file.  Then  control  is  returned  to  the  main  program. 

SUBROUTINE  SWTCH 

8.14  The  purpose  of  subroutine  SWTCH  is  to  make  a copy  of  matrix  B with 
a rearrangement  of  its  columns.  The  rearranged  copy  is  saved  in  matrix  A. 
Matrices  A and  B are  arguments  of  this  subroutine.  The  third  argument  K indi- 
cates the  type  of  change  to  be  made. 

8.15  This  routine  is  used  only  to  rearrange  the  data  in  the  arrays  WASR  and 
TWASR  for  use  by  the  calling  programs . When  the  data  are  read  from  or  printed 
into  the  file  WASRFILE  or  DYNCOM,  they  must  be  in  one  form.  When  the  arrays 
are  used  by  the  program  for  printing  or  user  input,  it  is  preferred  to  have  them  in 
a rearranged  form.  The  following  tabulation  indicates  the  required  column 
arrangement . 


Variable 

Description 

Column  Numbering 

For  Files  Use 

For  WASRX  Use 

Student  load 

1 

1 

Student  output 

2 

2 

Aircraft  available 

3,4,5 

3,5,7 

Instructor  available 

6,7,8 

00 

LO 

Thus,  subroutine  SWTCH  merely  rearranges  the  columns  into  the  required  order. 
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Update  Run 


Call  UPDATE 


Write  Data 
on 

DYNCOM 


Transfer  to 


Subroutine  NEWENTRY 


Subroutine 

NEWFNTRY 


Enter  Student 
F low 
Type 


"St  udent 
Flow  T ype 


Open  File 
NFOBASCA 


Read  Data 
From  Proper 


Return 


FIGURE  8 iCont) 


Subroutine  OLDENTRY 


Subroutine 

OLDENTRY 


Select  Proper 
Part  of 
WASRFILE 


Print  Current 
File  Title 


Use  Data 
From  File  ? 


Return  1 


FIGURE  8 (Cont) 


Y 

es 



1 

ReaH  r^atA 

From  File 

Return  2 j \ 

V J ii 

WASRFILE 

— H 

1 

Validate  All 
Values 


Record 
Values  in 
Array  WASR 


Return 


FIGURE  8 (Cont) 


d.  Subroutine  UPDATE 


Set  Pointer 
to  Proper  Area 
in  File:  Pilot 
or  NFO 


Write  Data 
on  WASRFILE 


Update  Student 
Input  by  1 
Week 


Weekly  Studenr 


Return 


FIGURE  8 (Cont) 


I 

Subroutine 
UPDATE  j 

■ 

□ 

e.  Subroutine  SWTCH 


Subroutine 

SWITCH 


Write  on  File  ? 


Transform 
Data  to 


Return 


FIGURE  8 (Cont) 


Transform 
Data  to  Write 
on  File 

i;-' 

" 1 
1 

TABLE  22 

1 

1 PROGRAM  WASRX  VARIABLE  DICTIONARY 

1 

Locatlcn 

Variable 

Name 

Dimension 

Description 

1 

Common 

IS  (7) 

1 

IS (7)  = 0:  Restart  run 

IS  (7)  = 1:  Entry  from  DYNAM 

■ i- 

1 

1 

V^ASRX 

WASR 

25,8 

Contains  WASR  data,  student 
load,  student  output,  and 
aircraft  and  instructor  avail- 
able for  up  to  three  types  of 
aircraft  per  phase 

: 

I 

WASRX 

TWASR 

25,8 

Equivalent  to  common  array 
WASR  except  data  are  rear- 
ranged (different  format) 

1 

WASRX 

X 

8 

Used  to  accept  user  entry 
of  data 

* i 

1 

UPDATE 

TITLE 

25 

Title  of  file,  time,  and  date 
of  last  update 

■ t 

1 

UPDATE 

X 

100 

Weekly  student  input 

: ■ 

1 

SWTCH 

A 

25,8 

Used  to  transform  WASRFILE 
data 

1 

SWTCH 

B 

25,8 

Used  to  transform  WASRFILE 
data 

TABLE  23 

WASRX  PROGRAM  AND  SUBROUTINE  DICTIONARY 


h 

( , 

t. 

k 


WASRX  Accepts  weekly  aviation  statistical  report  data  and 

stores  data  in  file  WASRFILE  or  DYNCOM 

NEWENTRY  Reads  proper  file  for  phase  names,  aircraft  names, 

and  number  of  aircraft  per  phase 

UPDATE  Writes  the  updated  data  on  file  WASRFILE 

OLDENTRY  Reads  the  file  WASRFILE  for  data  used  in  a dynamic 

run 

VALUE  Validates  user  entries  of  data 

SWTCH  Copies  and  rearranges  columns  of  matrices 


- ^ 
-i 


1 

fr. 
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TABLE  24 


PROGRAM  WASRX  LISTING 


109C- 

- 

129C- 

- 

149 

169 

1R9 

209 

229 

249 

269 

2R9 

309 

329 

349 

369C 

389 

409 

429 

449 

5 

469 

8 

489 

509 

529 

10 

549 

569 

30 

589 

609 

629 

35 

649 

669 

40 

689C 

PROGRAM:  WASRX  (2/1/71) 

WEEKLY  AVIATION  STATISTICAL  REPORT 
COMMON  IY,ISW.SW(2)*IS(7) 

COMMON  NAME(25#3)>NPLA(25#3)#NFUEL(25»3).NACD(25#3)#ATP(25) 
*WK<25)#T0D(25)»NAC(25)*NAD(25)#WX(25>3)»GAS(25#3)*AU(25#3), 
*FU(25>3)#SFH(25»3)#FIH(25>3>,FTR(25,3)#FS0(25#3)^AM0(25,3), 
AASH(25,3),AIH(25»3)*AITR(25>3) 

COMMON  FUN(25,3)>FIHN(25,3)>FTRN(25>3) 

C OMMON  I C OMMA , I BLANK , NO, NYES » NY  # NPH , I ER , LE VLSR , I PH , WPY # 
*AFD,KILL,IID#FID,KILLS<25),SK25),TS0UT(25),S0(25) 

DIMENSION  X(R),WASR(25,P),TWASR(25,8) 

FILENAME  T1 
PRINT  700 

Ni=o;  Nic=o;  NL=o;  nc=o 

IF(IS(7) .EQ.O)GO  TO  5 

CALL  OLDENTRY< Sfl, f 1 30, WASR, TWASR > 

CALL  NEWENTRY(NPH,NAC) 

IF(LEVLSR.E0.1 >G0  TO  30 
PRINT  705 

CALL  N0YES(S30,S10) 

PRINT  710;  PRINT  712 
NI*1 

PRINT  71R 
DO  40  1=1, NPH 

PRINT  720,I,(NAME(I, J), J»1,3),(NPLA(I, J), J=l,3) 

N=2+2*NAC(I ) 

INPUT, (X(J),J=1,N) 

CALL  VALUE(NPH,I,X,WASR,*35) 
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TABLE  24  (Cont) 

i 


709C 

- - 

729 

100 

749 

105 

769 

7B9 

107 

B09 

BS9 

B49 

B69 

B89 

lOB 

909 

929 

949C 

969 

110 

9B9 

115 

1009 

1029 

1049 

1069 

10R9 

1109 

1129 

1149 

1 IB 

1169 

120 

1 1B9C 

1209C 

- - 

1229 

130 

1249 

135 

1269 

12B9 

140 

1309 

1329 

1349 

1369 

13B9 

1409 

1429 

145 

1449 

150 

1469 

14B9 

1509 

160 

1529C 

OPTION  TO  CORRECT 
NCal 

PRINT  750 

CALL  N0YESt$120»$107) 

IFfLEVLSR.EO.l )G0  TO  110 
IE<NIC.EC.l )G0  TO  110 
NIC«1 
PRINT  705 

CALL  N0YES(*1 10,$10R) 

PRINT  755 

IFCNI .EC.l )G0  TO  1 10 
PRINT  712;  PRINT*"  " 

PRINT  756 
INPUT* I 

IF(I .EG.O)GO  TO  130 

IF(CI  .LT.OJ.OR.d  .GT.NPH))GO  TO  HR 

PRINT  720*I*(NAME(I* J>* J=1*3)*(NPLA(I* J)* J=l*3) 

M=2+2*NAC(I ) 

INPUT*<X< J)* J=1 *MJ 

CALL  VALUE(NPH*I*X*WASR*$115) 

PRINT  75R  ; GO  TO  1 15 
PRINT  730;  GO  TO  115 
IFfNL.EG'.l  )G0  TO  160 

OPTION  TO  LIST 
NL=1 

PRINT  760 

CALL  N0YESC$160*S1A0) 

PRINT  770 
DO  150  I=1*NPH 

PRINT  7B0*I*(NAME(I* J)* J=1*3)*NPLA(I*1 ) * ( WASH C I * J) * J= 1 * A ) 
IF(NAC(I).LE.l )G0  TO  150 
M=NAC(I ) 

DO  1A5  K=2*M 
N=2*K+1 

PRINT  7B5*NPLA(I*K)*WASR(I*N)*WASR(I*N+1 ) 

CONTINUE 
PRINT*"  " 

GO  TO  100 

IF(NC.EQ.O)GO  TO  100 


TABLE  24  (Cont) 


I 

I 

I 

I 

I 

I 


[ 


1 
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1549  CALL  SWTCHtTWASRj WASH#- 1) 

1569  165  IF(IS(7).EQ.0)CALL  UPDATE(TWASR#S900> 

1589C***  IF  THIS  IS  AN  ENTRY  FROM  "DYNAM", THEN 
1609C***  UPDATE  "DYNCOM"  FILE 
1629  T1 a"DYNCOM” 

1649  OPENFILE  T1 

1669  SET<TnTO  101 

1689  DO  250  J=U8 

1709  250  WRITEfTl  KTWASRd#  J)#I  = 1#25) 

1729  CLOSEFILE  T1 

1749  IS<7)«NPH 

1769  IY=NPH 

1789  CHAIN"PTRS1*" 

1809  700  FORMATC  ♦ ♦ WEEKLY  AVIATION  STATISTICAL  REPORT  ♦ ♦") 

1829  705  FORMATC/"  INSTRUCTIONS  TO  ENTER  DATACY^N)") 

1849  710  FORMATC"  EACH  PHASE  NAME  AND  THE  AIRCRAFT  TYPECS)"/ 

1869  *"  WILL  BE  PRINTED  OUT.  THEN  ENTER  THE  VALUES:"/) 

1889  712  FORMATC"  A.  NUMBER  OF  STUDS.  ON  BOARD  AT  END  OF  WEEK"/ 

1909  *"  B.  STUDENT  OUTPUT  AT  END  OF  WEEK"/ 

1929  *"  THEN  FOR  EACH  AIRCRAFT  TYPE  CIN  THE  ORDER  THEY 

1949  * APPEAR)  INPUT  PAIRWISE"/ 

1969  *"  C.  NUMBER  OF  AIRCRAFT  ASSIGNEDCA3  STATUS)"/ 

1989  *"  D.  NUMBER  OF  INSTRUCTORS  ASSIGNED"/ 

2009  A"  THE  ORDER  OF  INPUT  FOR  THE  VALUES  ARE: 

2029  A A,B,C*D#C#D,C*D") 

2049  718  FORMATC //4X»"*  PHASE  NAME  ♦AIRCRAFT  TYPES  ♦ VALUES"//) 

2069  720  F0RMATC"+'M2,2X,3A4#2X#3CA4#1X)) 

2089  730  FORMATC"  INVALID  REPLY  - RETYPE") 

2109  750  FORMATC"  ANY  CHANGES  OR  CORRECTI ONSCY^N)") 

2129  755  FORMATC"  ENTER  PHASE  NUMBER  TO  BE  CORRECTED"/ 

2149  A"  OR  0 FOR  NO  FURTHER  CORRECTIONS"/ 

2169  A"  THEN  THE  PHASE  NAME  AND  AIRCRAFT  TYPES"/ 

2189  A"  WILL  BE  PRINTED  OUT.  ENTER  THE  NEW  VALUES.") 

2209  756  FORMATC"  FIRST  PHASE  NO.  ") 

2229  758  FORMATC"+NEXT  PHASE  NO.  ") 

2249  760  FORMATC"  SUMMARY  PRINT  OUT  FOR  ALL  PHASESCY^N)") 

2269  770  FORMAT C4X#"^  PHASE  NAME  ♦A/C  "> 

2289  A"^STUDENTS^  STUDENT^  NUMBER  ♦ NUMBER  ♦"/ 

2309  A17X/"^TYPE  ♦ON  BOARDS  OUTPUT  ♦AIRCRAFT^  INSTRS  ♦") 

2329  780  FORMATC  I 3»2X#3A4# IX# A4»4F9 . 1 ) 

2349  785  F0RMATC18X#A4# 18X#2F9.1 ) 

2369  900  STOPIEND 
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TABLE  24  (Cont) 
a.  Subroutine  NEWENTRY 


23R9 

SUBROUTINE  NEWENTRY < NPH *NAC > 

2409 

COMMON  IY,ISW,SWC2)*IS(7) 

2429 

COMMON  NAME(25>3),NPLA(25*3) 

2449 

DIMENSION  NAC<25> 

2469 

FILENAME  T1 

24R9 

PRINT  800 

2509 

5 

INPUT^IL 

2529 

IF(  CIL.LT.l ) .0R.(IL.GT.2)  )G0  TO  20 

2549 

IF< IL.EO . 1 >T1 ="BASCAS" 

2569 

IF(IL.E0.2)T1="NFOBASCA" 

2589 

GO  TO  30 

2609 

20 

PRINT  810 

2629 

2649C 

GO  TO  5 

2669 

30 

N=0 

2689 

1SC2)=IL 

2709 

IF(IL.EG.2)N=3 

2729 

M=N+13 

2749 

OPENFILE  T1 

2769 

REWIND  T1 

2789 

DO  35  1=1,5 

2809 

35 

READtTl ,700)IL 

2829 

READfTl ,700)IL,NPH 

2849 

DO  60  I=1,NPH 

2B69 

READ<T1,710)1L,  (NAME(  1,  J),  J = l,3),  (NPLAd,  J),  J=1 ,3) 

2889 

READ(T1,720)IL,NAC(I) 

2909 

DO  60  J=1,M 

2929 

60 

READ(T1#700JIL 

2949 

CLOSEFILE  T1 

2969 

700 

FORMATtV) 

2989 

710 

FORMATt 14, 1X,6A4) 

3009 

720 

F0RMAT(I4,3X,I 1 ) 

3029 

800 

FORMAT! ENTER  STUDENT  FLOW  TYPE"/ 

3049 

A 

i"  1 FOR  pilot;  2 FOR  NFO  ") 

3069 

810 

FORMAT!"  INVALID  REPLY  - RETYPE  ") 

3089 

return; END 
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3109 

3129 

3149 

3169 

31B9 

3209 

3229 

3249 

3269 

3289 

3309 

3329 

3349 

3369 

3389 

3409C 

3429C 

3449 

3469 

3489 

3509 

3529 

3549 

3569 

3589 
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TABLE  24  ^Cont^ 
b.  Subroutine  UPDATE 

SUBROUTINE  UPDATEdWASR#*) 

COMMON  1YjISW.SW(2)#IS(7) 

DIMENSION  TWASR(25#8),TITLEt25)#X( 100) 
ALPHA  TITLE 
FILENAME  T1 
PRINT  700 

INPUT  710.(TITLE< J), J=1 . 10) 

TITLE(11)«" 

T1 ="WASRFILE" 

OPENFILE  T1 

N=1J  1F(IS<2) .E0.2)N=25 
SETCTDTO  N 

WRITE (T1 )(TITLE( J)# J=l» 1 1 )*CLK(X)#DAT(X) 
DO  10  I»l,8 

WRITEtTl )(TWASR( J>I )» J»1  #25) 

- -UPDATE  STUDENT  INPUT  FILE  BY  ONE  WEEK 
K1=10+24*(ISC2)-1 ) 

SETCTl )T0  K1 

READ(T1 )(TITLE( J)# J»1 #25) 

PRINT  720#(TITLE<J)#J=1#15) 

READCTl  )(TITLE(J)# J=»l#25) 

PRINT  730#(TITLE( J)# J*6#9) 

PRINT  740 

CALL  N0YES(tl00#$20) 


TABLE  24  (Cont) 


b.  Subroutine  UPDATE  (Cont) 


3609 

20 

K1 =Kl+3 

3619 

SET(T1)T0  K1 

3629 

DO  80  K=l,3 

3649 

N1  =0 

3669 

DO  40  1=1,4 

36R9 

READfTl )(X( J+Nl ), J=l,25) 

3709 

40 

N1 =Nl+25 

3729 

DO  45  1=1,99 

3749 

45 

X(I  )=X(I  + 1 > 

3769 

X( 100)=X(99) 

37R9 

SET(T1 )T0  K1 

3809 

N1  =0 

3829 

DO  50  1=1,4 

3849 

WRITE(T1 )(X( J+Nl ), J=1 ,25) 

3869 

50 

N1 =Nl+25 

3889 

80 

Kl=Kl+4 

3909C 

--  CHANGE  UPDATE  TIME 

3929 

K1=10+24*(IS(2)-1  ) + l 

3949 

SETfTl )T0  K1 

3969 

WRITEtTl  XTITLEC  J),  J=1 , 5),CLK(X), 

3989C 

4009 

100 

CLOSEFILE  T1 

4029 

RETURNl 

4049 

700 

FORMATC//”  THIS  IS  AN  UPDATE  RUN 

4069 

710 

FORMAT! 15A4) 

4089 

720 

FORMAT!/”  THE  STUDENT  INPUT 

FILE 

4109 

730 

FORMAT!”  LAST  UPDATED  AT  ”, 

2A4,” 

4129 

740 

FORMAT!”  UPDATE  THE  STUDENT 

INPUT 

4149 

END 

. ENTER  A TITLE  ♦" 

TITLE:"/2X^ 1 5A4//) 
ON  'SSAA  //) 

FILE  FOR  THIS  WEEK 


10,25) 


//) 


(Y,N)") 
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TABLE  24  (Cont) 
c.  Subroutine  OLDENTRY 


I 

14169  SUBROUTINE  OLDENTRYt WASH# T WASH ) 

4189  COMMON  I Y» I S W, S W( 2 ) , I S C 7 ) #NAMEC25# 3 ) 

4209  DIMENSION  TI TLE( 25 > , WASH ( 25, 8 ) , T WASR( 25# 8 ) 

4229  FILENAME  T1 

I 4249  T1="WASRFILE" 

I 4269  OPENFILE  T1 

4289  N=1+(IS(2)-1 )*24 

I 4309  SETCTl )T0  N 

j 4329  READCTl  XTITLEC  J=l,25) 

4349  PRINT  700 

4369  PRINT  7 1 0, <TITLE( I ) , I =1 , 1 5 ) 

4389  PRINT  720 

4409  CALL  NOYES ( S 1 00, $50 ) 

4429C-  - - YES-  READ  VALUES  FROM  "WASRFILE"  INTO  ARRAY  WASR 
4449  50  DO  60  1=1,8 

4469  60  READITl )CTWASR( J,I ), J=l,25) 

4489  CLOSEFILE  T1 

4509  CALL  SWTCH(WASR,TWASR,1 ) 

4529  RETURN2 

4549  100  RETURN 1 

4569C 

4589  700  FORMAT (/••  THE  CURRENT  FILE  TITLE  IS:") 

4609  710  FORMATt /2X, 15A4//) 

4629  720  FORMATC"  USE  THE  VALUES  FROM  THIS  FILECY,N>") 

4649  END 


/— 

ii 

« 


d.  Subroutine  NOYES 

4669  SUBROUTINE  NOYES <♦,♦) 

4689  ALPHA  N 

4709  5 INPUT  10, N 

4729  10  FORMAT(Al) 

4749  IF(N.EQ."N")RETURN1 

4769  IF(N.EQ."Y")RETURN2 

4789  PRINT, "INVALID  REPLY  - RETYPE" 

4809  GO  TO  5 

4829  END 


TABLE  24  (Cont) 


e.  Subroutine  VALUE 


4849 

SUBROUTINE  VALUE ( NPH^ I > X> WASH* * ) 

4869 

DIMENSION  X(8)> WASR(25>8) 

4889 

IF(  (I  .LT.O)  .OR.d  .GT.NPH)  )G0  TO  50 

4909 

DO  15  J=l,8 

4929 

IF(X( J) .LT.O)GO  TO  50 

4949 

15 

CONTINUE 

4969C 

4989 

DO  20  J=3>8 

5009 

IF<X( J) .LT.< .001 ) )X(J) =0.0000001 

- 

5029 

20 

CONTINUE 

5049 

DO  25  J=l*8 

5069 

WASR<I.J)=X(J) 

5089 

25 

XC J)=0. 

5109C 

5129 

RETURN 

5149 

50 

PRI NT J "INVALID  REPLY  - RETYPE" 

5169 

RETURNl ;END 

- 

f.  Subroutine  SWTCH 

5189 

SUBROUTINE  SWTCHfA^B^K) 

. 

5209 

DIMENSION  A(25,8),B(25,8) 

5229 

DO  10  1=1,25 

5249 

A ( I , 1) =B ( I , 1 ) 

5269 

A(I,2)=B(I,2) 

5289 

A(I,3)=B(I,3) 

5309 

10 

A(I,8)=B(I,8) 

5329 

IF(-1 .EO.KIGO  TO  40 

5349C- 

- 

TRANSFORM  B INTO  A 

5369 

DO  20  1=1,25 

5389 

A(I,4)=B(I,6) 

5409 

A(I,5)=B(I,4) 

5429  A(I,6)=BCI,7) 

5449  20  A(I,7)=B(I,5) 

5469  RETURN 

54R9C-  - INVERSE  OF  ABOVE  TRANSFORM 
5509  40  DO  50  I=l>25 

5529  Af I,6)=B(I,4) 

5549  A(I,4)=B(I,5) 

5569  ACI,7)=B(I,6) 

55B9  50  A(I,5)=B(I,7) 

5609  return; END 


IX . PROGRAM  PTRSl 


PROGRAM  DESCRIPTION 

9.1  The  purpose  of  program  PTRSl  is  to  prepare  data  and  allocate  storage 
space  for  program  PTRS2.  Program  PTRSl  and  PTRS2  form  the  Student  Input  module. 
This  module  is  used  as  a utility  program  either  to  update  the  weekly  student 
input  data  (stored  on  WASRFILE)  or  to  determine  weekly  student  input.  It  is  also 
used  in  the  data  initialization  part  of  the  Dynamic  IFRS  model. 

9.2  Upon  entry,  a test  is  made  on  IS (7)  to  determine  if  it  is  an  update  run 
or  an  entry  from  program  WASRX.  If  IS  (7)  ^ 0,  implying  an  entry  from  DYNAM, 
subroutine  ALLPIPE  is  called.  Upon  return  control  transfers  to  PTRS2.  If 

IS (7)  = 0 implying  an  update  run,  the  user  is  requested  to  enter  the  training  flow 
number  (i.e.  , IS(2)  = 1,  for  pilot;  IS (2)  =2,  for  NFO) . Subroutines  BASFILE 
and  ALLPIPE  are  then  called  sequentially.  Following  this,  control  is  transferred 
to  program  PTRS2. 

SUBROUTINE  BASFILE 

9.3  The  purpose  of  subroutine  BASFILE  is  to  read  the  proper  data  file  for 
training  phase  data.  Upon  entry  a test  is  made  on  IS (2)  to  determine  the  train- 
ing system.  For  IS (2)  = 1,  file  BASCAS  is  opened.  For  IS (2)  = 2,  file  NFOBASCA 
is  opened.  The  program  then  reads  the  proper  lines  for  the  phase  name  and 
length  of  training.  The  user  is  given  the  option  to  print  these  data,  and 
control  is  returned  to  the  main  program. 

SUBROUTINE  ALLPIPE 

9 A The  purpose  of  subroutine  ALLPIPE  is  to  read  the  proper  pipeline  file 
and  to  set  up  the  arrays  TP  and  XINC  for  program  PTRS2  and  file  DYNCOM. 
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Upon  entry  a test  is  made  on  the  level  of  complexity  (LEVLSR).  If  LEVLSR  = 3, 
implying  the  pipelines  may  have  been  modified,  file  PIPES  is  opened.  For 
LEVLSR  a further  test  is  made  on  IS (2).  If  IS (2)  = 1,  file  PIPE  is  opened 
and  for  IS (2)  = 2,  file  NFOPIPE  is  opened. 

9.5  The  arrays  TP  and  XINC  are  then  initialized  to  zero  and  the  program 
reads  the  pipeline  file  for  the  student  source  name,  the  phase  sequence  in  the 
pipeline,  and  the  attrition  rate.  These  data  are  then  stored  in  the  array  TP  in 
coded  form  (e.g.  , if  phase  5 is  entered  from  phase  3 and  phase  5 has  attrition 
rate  of  20%,  the  value  in  TP  (5,1)=  3.20  -t  .00001).  If  it  is  a terminal  phase, 
the  value  is  negative.  The  number  .00001  is  added  to  avoid  rounding  errors 
when  converting  the  TP  array  to  integer  numbers  and  to  differentiate  between 
phases  not  used  and  an  entry  phase  with  zero  attrition  rate. 

9.6  Next,  the  entry  phases  in  the  pipeline  are  identified.  If  more  than  one 
entry  phase  is  found  for  a student  source,  an  error  message  is  printed  and  only 
the  first  entry  phase  found  is  used  in  the  program.  However,  if  more  than  10 
phases  are  found,  the  program  stops.  The  student  source  and  entry  phases  for 
each  source  are  printed  at  the  terminal.  Following  this,  the  entry  phase  is  checked 
to  see  if  it  is  new  (i.e. , a new  entry  phase  has  been  added  to  the  overall  system). 
If  it  is  new,  it  is  added  to  the  list  of  entry  phase  numbers.  A maximum  of  three 
entry  phases  for  the  entire  training  system  is  permitted. 

9.7  Next,  if  IS (7)  0,  the  preliminary  incidence  matrix  (array  XINC)  is 

updated  to  include  the  current  pipeline.  If  IS (7)  = 0,  the  incidence  matrix  cal- 
culations are  skipped  and  the  next  pipeline  is  read. 

9.8  The  preliminary  incident  matrix  contains  only  ones  or  zeros.  If 
XINC(I,J)  = 1,  then  some  graduates  of  phase  I can  directly  enter  training  phase  J. 

If  XINC(I,J)  = 0,  then  no  graduate  of  phase  I can  directly  enter  training  phase  J. 

If  row  I of  XINC  contains  two  or  more  positive  values , then  phase  I is  called  a 
branch  phase.  Also  if  there  are  NPH  training  phases,  and  if  for  some  pipelines 
phase  I is  a terminal  phase,  thenXINCd,  NPH4I)  = 1. 

9 . 9 Then  the  next  pipeline  in  the  file  is  read  and  the  entire  procedure  is 
repeated.  After  all  pipelines  have  been  read  and  processed,  a final  check  is 
made  on  IS  (7).  For  IS  (7)  / 0,  all  the  data  generated  are  written  on  the  file 
DYNCOM.  In  either  case,  control  is  returned  to  the  main  program. 


Enter  From 
WASRX  Of 
Terminal 
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TABLE  25 

PROGRAM  PTRSl  VARIABLE  DICTIONARY 


Location 

Variable 

Name 

Dimension 

Description 

Common 

ISW 

1 

Total  number  of  entry  phases 

Common 

IS  (7) 

1 

IS  (7)  = 0:  Restart  run 

IS (7)  ^ 0:  Entry  from  DYNAM 

Common 

TP 

25,10 

Coded  data  for  phase  I,  J = 1, 
10  denotes  up  to  10  pipelines 

Common 

WKP 

25 

Length  of  training  phase  I 
(floating  point) 

Common 

LEN 

25 

Length  of  training  phase  I 
(integer  value) 

Common 

ITRAV 

25 

Travel  time  prior  to  entering 
phase  I 

Common 

PIPNAM 

10,3 

Name  of  pipeline  I (3  words 
or  12  characters  permitted) 

Common 

LX 

o 

CNJ 

Total  length  of  training  for 
pipelines  1=1,2  denotes 
pipeline  number  and  length 
of  training  in  weeks 

Common 

WK 

100,10 

Student  input  for  week  I, 
pipeline  J,  J = 1,  10  denotes 
up  to  10  pipelines 

Common 

SI 

100,3 

Student  input  for  week  I , 
entry  phase  J = 1 , 3 

Common 

IWEEKS 

21 

I^^  week  number  for  cum- 
ulative PTR 

Common 

PTRS 

10,21 

Cumulative  PTR  for  I^*^  pipe- 
line, week  J 

Common 

NENTPA 

10 

First  entry  phase  number  for 
pipeline  I 

ALLPIPE 

NPIPE 

1 

Total  number  of  pipelines 

3 

;i 

;j 

I 


TABLE  25  (Cont) 


Location 

Variable 

Name 

Dimension 

— 

Description 

ALLPIPE 

NET 

1 

Total  number  of  different 
entry  phases  for  all 
pipelines 

ALLPIPE 

NE 

1 

Total  number  of  entry 
phases  for  a single  pipeline 

ALLPIPE 

XINC 

25.26 

Incident  matrix  for  training 
system 

ALLPIPE 

IPHASE 

25,7 

Phase  sequence  for  I^^  item 
in  pipeline  IPHASE  (I.J) 

J = 1 , 6 are  the  following 
phase  numbers  of  phase 
IPHASE  (1,7) 

ALLPIPE 

AT 

25 

Attrition  rate  for  phase  I 

ALLPIPE 

NEPH 

3 

I^^  entry  phase  for  a particular 
pipeline 

Common 

NPH 

1 

Number  of  entry  phases 

a 

3 


TABLE  2 6 

PTRSl  PROGRAM  AND  SUBROUTINE  DICTIONARY 


PTRSl  Prepares  data  and  allocates  storage  for  program  PTRS2 

BASFILE  Reads  proper  data  files  for  phase  data 


ALLPIPE 


Reads  proper  pipeline  files  and  sets  up  arrays  needed  in 
program  PTRS2 


TABLE  27 

PROGRAM  PTRSl  LISTING 


107C- 

- 1 

127C- 

- ] 

147 

167 

187 

4 

207 

22  7C 

247 

267 

287 

307 

10 

327 

347 

367 

20 

387 

407C 

427 

30 

447 

467 

50 

487 

507 

650 

527 

700 

547 

567 

PROGRAM*  PTRSl  (STUDENT  INPUT  MODULE) 

FIRST  LINK  FOR  STUDENT  INPUT  MODULE 
COMMON  NPH«ISV<SV(2)«IS(7) 

COMMON  NAME(25#3>*TP(25*10)#WKP(25)#LEN(25)#ITRAV(25) 
«PIPNAM(10«3)«LX(2>10)«UK( 100«10)«SI ( 100«3)«I VEEKS(21 ) 
*PTRS( 10>21 )>NENTPA( 10) 

IF(1S(7) .NE.0)G0  TO  50 
PRINT  650 
PRINT  700 
INPUT, I 

IF((I.LT.1).0R.(I.GT.2))G0  TO  20 
GO  TO  30 

PRINT, "INVALID  REPLY  - RETYPE” 

GO  TO  10 

1S(2)«1 

CALL  BASFILE 

CALL  ALLPIPE(VK,SI ) 

CHA1N"PTRS2*” 


*”  1 FOR  PILOT. 
END 


2 FOR  NFO. 


9 

9 
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TABLE  27  (Cont) 
a.  Subroutine  BAS  FILE 


587 

SUBROUTINE  BASFILE 

607 

COMMON  NPH,ISW,SW(2)#ISC7) 

627 

COMMON  NAME(25,3)>TP(25, 10 ) , WKP(25 ) ,LENC25 ) , I TRAVC25) , 

647 

4PIPNAMC10*3)>LX<2»10>»VIK<  100*  105  # SI  ( 100, , I WEEKS<2  1>  , 

667 

*PTRSC10,21 )*NENTPAC10) 

• ■ 

687 

ALPHA  NAME 

707 

FILENAME  T1 

727 

Tls"BASCAS" 

« » 

747 

IF(IS(2> .EQ.25T1=”NF0BASCA" 

767 

OPENFILE  T1 

787 

REWIND  T1 

807 

DO  10  1=1*5 

827 

10  READ<T1*700)IL 

847 

READ ( T 1 * 700 ) I L*  NPH 

867C 

m • 

887 

DO  50  I=1*NPH 

907 

READ ( T 1 * 720  5 ( NAME (I*J)*J=1*3) 

927 

READ(T1*700)IL 

« ; 

947 

READCT1*700)IL*X*WKP(I ) 

967 

LENCI )=WKP( I >+0.0001 

987 

DO  50  J=l*12 

1007 

50  READ(T1*700>IL 

1027 

1047C 

CLOSEFILE  T1 

- 

1067 

PRINT  600 

- . 

1087 

600  FORMAT!”  PRINT  PHASE  NAMES  AND  LENGTHS ( Y* N>" ) 

1107 

CALL  NOYES <S70*S55> 

' * 

1127 

55  DO  60  I=1*NPH 

1147 

60  PRINT  800*I*(NAME(I*J)*J=1*3)*LEN(I ) 

1167 

1187C 

800  FORMAT! IX* I2*3X*3A4*3X*I2> 

1207 

700  FORMAT!V> 

> 

1227 

720  FORMAT ! 5X* 3 A4) 

1247 

70  return; END 

] 


TABLE  27  (Cont) 
b.  Subroutine  NOYES 


r 

5 

V 

k 

t 

I 

i 


I 


r 


1 


I 


1267  SUBROUTINE  NOYESC***) 

1287  ALPHA  NO*YES#N 

1307  DATA  N0,YES/”N"#"Y'V 

1327  10  INPUT  20>N 

13A7  20  FORMATUAl) 

1367  IF<N.EQ.N0)RETURN1 

1387  IF(N.EQ.YES)RETURN2 

1407  PRINT***INVALID  REPLY  - RETYPE" 

1427  GO  TO  10 

1447  END 


TABLE  27  (Cont) 
c.  Subroutine  ALLPIPE 


1A67 

1487 

1507 

1527 

1547 

1567C 

1587 

1607 

1627 

1647 

1667 

1687 

1707 

1727 

1747 

1767 

1787 

1807 

1827 

1847 

1867 

1887 

1907 

1927 

1947 


SUBROUTINE  ALLPIPECXINC, IPHASE) 

COMMON  NPH,ISW#SW(2), IS<7) 

COMMON  NAMEC25#3),TP<25j 1 0 ) # WKP( 25 ) , LENC 25 ) * I TRAUC 25) 
ftPIPNAMt 10*3)#LX(2, 10)#WK( 100> 10)>SI ( 100#3),I WEEKS(21 ) 
&PTRS(10*21 ),NENTPA(10) 

DIMENSION  XINC(25>26)*IPHASE(25,7)*AT(25)#NEPH( 10) 

ALPHA  PIPNAM 

FILENAME  T1 

IF(ISW.NE.3)G0  TO  2 

T1="PIPES" 

GO  TO  3 

2 IF(IS(2) .EQ.l )T1="PIPE" 

I F ( I S ( 2 ) . EQ . 2 ) T 1 =”NFOP I PE" 

3 N=7 
PRINT  900 
OPENFILE  T1 
REWIND  T1 
DO  8 I=U25 
DO  5 J=l>10 

5 TP(I>J)=0.0 
DO  8 J=l,26 
8 XINCd, J)=0.0 

iS(4)=o; iS(5)=o; isc6)=o 

NPIPE=0  ; NET=0 
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TABLE  27  (Cont) 
c . Subroutine  ALLPIPE  (Cont) 


1967C 

1987 

10 

NPIPE=NPIPE+1 

2007 

IF(NPIPE.6T.10)G0  TO  200 

2027 

READCT1#710)NPHP, (PIPNAMCNPIPE^ J) # J=1 > 3 ) 

2047 

IF(NPHP.LE.0)G0  TO  200 

2067 

DO  20  I=1,NPHP 

2087 

20 

READ<T1>700)IL*(IPHASE( I, J), J=1,N),AT(I ) 

2107C*** 

SET  UP  TP  ARRAY 

2127C 

- - : 

NOW  SET  UP  ATTRITION  RATES 

2147 

DO  30  I=1,NPHP 

2167 

M*IPHASE(I,N> 

2187 

IFC  CM.LT.O) .OR.(M.GT.NPH)  )G0  TO  300 

2207 

30 

TP(M,NPIPE)=AT(I >+0.000001 

2227C 

- - 

NOW  ADD  THE  PREVIOUS  PHASE  NUMB. 

2247 

M«N-1 

2267 

DO  60  I=1>NPHP 

2287 

DO  50  J*1#M 

2307 

IF(IPHASE(I,J>.NE.O)GO  TO  40 

2327 

GO  TO  50 

2347 

40 

N1»IPHASE(I, J) 

2367 

TP(Nl#NPIPE)aIPHASE(I>N)+TP(Nl^NPlPE) 

2387 

50 

CONTINUE 

2407 

60 

CONTINUE 

242  7C 

244  7C 

- - 

NOW  CHANGE  SIGN  OF  ALL  TERMINAL  PHASES 

2467 

DO  80  I*1»NPHP 

2487 

DO  70  J=UM 

2507 

IFdPHASEd,  J>  .NE.OIGO  TO  80 

2527 

70 

CONTINUE 

2547 

NlalPHASEd^N) 

2567 

TPCNl jNPIPE>*-TPCN1 #NPIPE> 

2587 

80 

CONTINUE 
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TABLE  2 7 (Cont) 
c.  Subroutine  ALLPIPE  (Cont) 


FIND  ENTRY  PHASES (3  IS  MAX) 

NE=0 

DO  120  I=UNPHP 
M=IPHASE(I,7) 

DO  110  K=1,NPHP 
DO  110  J=U6 

IF(M.EQ.IPHASE(K, J))G0  TO  120 
CONTINUE 

FOUND  ENTRY  PHASE 
NE=NE+1 

IF(NE.EQ.l 1 )G0  TO  300 

NEPH(NE)=M 

CONTINUE 

PRINT  910* (PIPNAMtNPIPE, J), J=l>3), CNEPHt J), J=1,NE) 
FORMAT (/"  STUDENT  SOURCE  ENTRY  PHASE") 

FORMAT (4X*3AA* AX* 1013) 

-ONLY  ONE  ENTRY  PHASE  IN  A PIPLINE! 

NENTP A ( NP I PE ) =NEPH ( 1 ) 

IFCNE.EQ. 1 )G0  TO  12A 

PRINT*"  TOO  MANY  ENTRY  PHASES  - FIRST  USED" 

NE=1 

CHECK  FOR  NEW  ENTRY  PHASE 
DO  130  J=1*NE 
DO  125  1=4*6 

IFC  IS(I).EQ.NEPHtJ)  )G0  TO  130 

CONTINUE 

NET=NET+1 

IFtNET.EQ .4)G0  TO  320 
IS<3+NET)=NEPH( J) 

CONTINUE 

ISW=NET 

IF(IS(7) .EQ.O)GO  TO  10 
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TABLE  27  (Cont) 
c.  Subroutine  ALLPIPE  (Cont) 

32A7C***  SET  UP  INCIDENCE  MATRIX 
3267  DO  160  I=1*NPHP 

3287  M=IPHASECI,7> 

3307  NZ*0 

3327  DO  150  J=l,6 

3347  N1*IPHASE<1, J> 

3367  IF(N1)140,140,145 

3387  140  NZ«NZ+1 

3407  GO  TO  150 

3427  145  XINC(M,N1)=1  .0 

3447  150  CONTINUE 

3467  IF<NZ«EQ.6>XINC(M>NPH-t-l  )sl  .0 

3487  160  CONTINUE 

3507  GO  TO  10 

3527C 

3547  200  NPIPE-NPlPE-1 

3567  IS(3)»NPIPE 

3587  CLOSEFILE  T1 

3607  IF(IS(7>.EQ.0)RETURN 

3627C 

3647C  WRITE  ARRAYS*  TP,XINC  ON  FILE  DYNCOM 

3667  T1 -"DYNCOM" 

3687  OPENFILE  T1 

3707  SET<T1>T0  117 

3727  DO  220  J-1#NP1PE 

3747  220  WRITEtTl ICTPCI* J)*I«1*25) 

3767  M-NPH+1 

3787  SETfTDTO  127 

3807  DO  230  I-U26 

3827  230  WRITE(T1>CXINC(J*I)^ J»1^25) 

3847  SET(T1)T0  115 

3867  WRITECTl )NPIPE* (NENTPAC J), J*1 # 1 0 ) # C CPIPNAMt I, J*1 >3) > I =1 >4) 

3887  WR1TE(T1  XtPIPNAMd#  J=1#3)»I=5j  10> 

3907  WRITE(Tl  KCPIPNAMd*  J=1/3)^I=6^  10) 

3927  CLOSEFILE  T1 
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TABLE  27  (Cont) 
c.  Subroutine  ALLPIPE  (Cont) 


3947C 

3967 

3987 

4007 

4027 

4047 

4067 

4087 

4107C 

4127 

4147 

4167 

4187 

4207 

4227 

4247 

4267 

4287 


IF(NPH.GE.0)RETURN 
PRINT  998 
DO  990  I*1,NPH 

990  PRINT  999*<XINC(I,tJ)# J=1,M) 

998  FORMAT! //”  ♦♦  INCIDENCE  MATRIX  ♦♦"//) 

999  FORMAT!  16F4.0/6X, 16F4.0) 

RETURN 

300  PRINT  720*!PIPNAM!NPIPE, J), Jsl,3> 

STOP 

320  PRINT  730 

700  FORMAT !V) 

710  F0RMAT!4X> I4,3A4) 

720  FORMAT!//"  ♦♦♦  FATAL  ERROR  IN  PIPLINE:  ">3A4///) 

730  FORMAT!//"  ♦♦♦  FATAL  ERROR:  A FOURTH  ENTRY 
& PHASE  ENCOUNTERED"//) 
stop; END 
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X.  PROGRAM  PTRS2 


PROGRAM  DESCRIPTION 

10.1  The  purpose  of  program  PTRS2  is  to  provide  the  user  with  three  options 
to  prepare  the  weekly  student  input  data  for  each  entry  phase.  The  options  are: 

• Option  1— accept  and  modify  standard  data 
file 

• Option  2— enter  actual  values  for  each  week 

• Option  3— enter  cumulative  desired  output  at  a 
given  week  to  determine  student  input. 

10.2  Upon  entry,  the  arrays  WK  (contains  weekly  student  input  by  pipeline) 
and  SI  (contains  cumulative  student  input  for  all  pipelines  by  entry  phase)  are 
Initialized  to  zero.  The  user  then  enters  one  of  the  above  option  numbers 
(lOP  contains  the  option  number).  The  basic  calling  sequence  then  is: 

W 

• ForIOP=  1,  subroutines  STANDPTR,  TRAVEL 
and  PRINTl 

• For  IOP=  2,  subroutines  TRAVEL  and  PRINTl 

• For  lOP  = 3,  subroutines  STDOUTIN  and  PRINTl 
are  called. 

Subroutine  PRINTl  is  called  to  print  the  final  results,  i.e. , weekly  input  by 
entry  phase. 

10.3  The  user  is  then  given  the  option  to  make  corrections.  If  he  wants 

to  make  corrections,  subroutine  FAST  is  called  and  the  user  again  has  the  option 
to  print  the  results . 


10.4  If  this  mn  is  part  of  a dynamic  IFRS  data  initialization  run  (IS(7)  4 0) , 
the  weekly  student  input  is  written  on  the  file  DYNCOM.  Control  is  then  trans- 
ferred to  program  DYNAM.  For  (IS(7)  = 0),  implying  an  update  run,  the  user  is 
given  the  option  to  save  the  weekly  student  input  on  the  file  WASRFILE  before  the 
program  terminates . 

SUBROUTINE  STDOUTIN 

10.5  The  purpose  of  subroutine  STDOUTIN  is  to  determine  the  weekly  student 
input  for  each  entry  phase  based  on  a cumulative  student  output  at  the  terminal 
phases,  i.e. , user  option  3.  Upon  entry,  the  user  is  given  the  option  to  print 
the  instruction  for  entering  PTR  output  for  the  terminal  phases.  Following  this 
option,  subroutine  TRAVEL  is  called. 

10.6  Next  a loop  is  set  up,  with  index  I,  to  scan  all  phases.  The  first  step 
in  the  loop  tests  array  TP  to  determine  if  phase  I is  a terminal  phase.  When  a 
terminal  phase  is  found,  subroutine  PHZLEN  is  called  to  identify  all  pipelines 
having  terminal  phase  I,  and  to  calculate  the  length  of  training  for  each  of  these 
pipelines . 

10.7  Upon  return  the  pipelines  which  have  the  same  length  of  training  are 
identified.  Subroutines  PRINT,  PTROUT,  and  STUDIN  are  called  sequentially 
for  each  set  of  pipelines  having  the  same  length  of  training  time  (i.e. , the  set 
can  have  one  or  more  pipelines).  The  user  is  given  the  option,  for  each  pipeline 
set,  of  recalculating  the  student  input  based  on  a new  PTR  output.  If  this  option 
is  taken,  the  procedure  is  repeated  for  the  set  of  pipelines.  Subroutine  SORT  is 
then  called  to  calculate  the  cumulative  student  input  for  each  pipeline.  After 
all  pipelines  terminating  at  phase  I are  considered,  the  program  recycles  for  the 
next  phase  and  the  entire  procedure  is  repeated. 

10.8  After  all  pipelines  in  the  system  are  finished,  subroutine  PRINTS  is 
called  to  print  the  cumulative  results  for  each  pipeline.  Upon  return,  the 
weekly  student  input  for  each  entry  phase  is  calculated  from  the  weekly  student 
input  of  each  pipeline.  Control  is  then  returned  to  the  main  program. 

SUBROUTINE  TRAVEL 

10.9  The  purpose  of  subroutine  TRAVEL  is  to  allow  the  user  to  input  travel 
time  between  phases.  Upon  entry,  the  user  is  asked  if  there  is  any  travel  time. 

If  no  travel  time,  control  returns  to  the  calling  program.  If  travel  time  is  desired, 
the  user  enters  the  Ume  for  each  phase  he  desires.  An  entry  of  0,0  means  no 
further  entries.  Control  is  then  returned  to  the  calling  program. 

SUBROUTINE  PHZLEN 


10.10  The  purpose  of  subroutine  PHZLEN  is  to  determine  the  total  length  of 
training  for  each  pipeline  that  ends  at  a particular  terminal  phase.  Upon  entry. 
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the  array  TP  is  checked  to  identify  the  pipelines  which  have  phase  I (an  argument 
of  the  subroutine)  as  a terminal  phase.  After  this,  the  total  length  of  training 
for  each  pipeline  with  this  terminal  phase  is  calculated.  Total  training  time 
equals  the  length  of  training  in  the  pipeline  plus  travel  time  between  phases . 

The  pipeline  lines  are  then  sorted  into  ascending  order  by  length  of  training. 

The  results  are  saved  in  array  LX.  Upon  completion,  control  is  returned  to  the 
calling  program. 

SUBROUTINE  PRINT 

10.11  The  purpose  of  subroutine  PRINT  is  to  print  the  terminal  phase  name 
and  the  student  source  (pipeline)  names  being  considered.  Only  those  pipelines 
which  end  at  this  terminal  phase  and  which  require  the  same  total  length  of  train- 
ing are  printed.  The  order  of  the  pipelines  reflects  the  order  of  the  input  data. 

SUBROUTINE  PTROUT 

10.12  The  purpose  of  subroutine  PTROUT  is  to  accept  and  validate  user  entries 
of  the  cumulative  weekly  student  output  desired  for  a pipeline.  Upon  entry, 

the  user  is  requested  to  enter  the  week  number  and  the  student  output  of  that 
week  for  each  pipeline  under  consideration  (i.e. , pipelines  with  the  same 
total  length  of  training  and  the  same  terminal  phase) . 

10.13  The  week  number  is  then  checked  against  the  previous  weeks  to  deter- 
mine if  the  sequence  is  in  ascending  order.  If  not,  the  weeks  and  their  cor- 
responding student  output  are  sorted  into  ascending  order  by  week.  If  the  user 
enters  a duplicate  week,  the  first  entry  is  eliminated. 

10.14  Next,  the  cumulative  weekly  student  output  values  are  checked  to  de- 
termine if  the  values  are  decreasing  (they  must  be  monotonic-increasing).  If 
the  desired  cumulative  output  at  a given  week  is  less  than  for  a previous  week, 
a message  is  printed  and  the  user  is  requested  to  delete  one  of  the  entries. 

10.15  The  entire  procedure  is  repeated  (a  maximum  of  20  weeks  can  be 
entered)  until  the  user  enters  0,0. . . or  -1 ,0. . . to  indicate  no  further  data. 
Control  is  then  returned  to  the  calling  program . 

SUBROUTINE  STUDIN 

10.16  The  purpose  of  subroutine  STUDIN  is  to  compute  weekly  student  input 
based  on  the  weekly  cumulative  student  output  and  the  attrition  rate.  Upon  entry 
the  array  TSI  is  used  in  calculating  the  weekly  student  input,  and  is  initialized  to 
zero.  The  cumulative  PTR  for  the  weeks  entered  in  subroutine  PTROUT  and  the 
interval  between  these  weeks  are  then  identified.  Next  the  incremental  PTR 
output  for  the  weeks  is  stored  in  array  TSI.  This  incremental  output  is  averaged 
over  the  interval  Identified  previously. 
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Da'rt^o.Il^7^^  computed  using  the  attrition  rates  for  the 

PtS  FinaM  IJf  • The  Student  input  is  then  stored  in  array 

the  weekly  student  input  for  the  pipeline(s)  is  printed  if  the 

to  .L  caTlln/pr^^^^^ 

SUBROUTINE  SORT 

10.18  The  purpose  of  subroutine  SORT  is  to  accumulate  weekly  student  input 
for  each  pipeline.  The  student  input  for  the  pipe  line  (s)  is  added  to  the  pre- 

Tthe  thl  returned 

to  the  calling  program. 

SUBROUTINE  PRINTS 

^nnut^nr  In®  subroutine  PRINTS  is  to  print  the  cumulative  student 

input  for  all  student  sources.  Upon  entry,  the  user  is  requested  to  enter  the  first 

o?nted  Th®'"  each  student  so^cTifthen 

printed.  The  user  then  enters  the  next  week’s  range.  An  entry  of  0,0  Implies  no 

further  printouts  and  control  is  returned  to  the  calling  program. 

SUBROUTINE  STANDPTR 

M purpose  of  subroutine  STANDPTR  is  to  read  data  files  WASRFILE  for 

week  y student  input  data  and  travel  time  between  phases.  Upon  enti^  the 
first  two  records  of  the  file  are  read.  The  title  and  date  of  the  last  modification 

mTn  n L ■ K '^o^trol  is  returned  to  the 

use  the^aTfill.  th^  nonstandard  return  and  a new  option  is  selected.  If  he  does 
and  Ih  i entry  phase  parameters  (i.e. . total  number  of  entry  phases 

and  their  names)  are  compared  with  those  calculated  in  program  PTRSl  (Ihese  are 

printed  and  the  user  is  given  the  option  to  use  the  data  and  ignore  the  error 
he  chooses  not  to  use  the  data,  control  returns  to  the  main  program.  If  he* 
desires  to  use  the  data,  the  program  proceeds. 

10.21  The  travel  data  are  then  read  from  the  file  and  converted  to  integer 

values  Next,  the  weekly  student  input  for  all  entry  phases  is  read  At^this 
point  the  user  is  given  the  option  to  print  the  travel  times.  In  any  e*venJ 
control  is  then  returned  to  the  main  program.  ^ 

SUBROUTINE  FAST 

10.22  The  purpose  of  subroutine  FAST  is  to  let  the  user  enter  the  weekly 
stored  in  the  program  is  printed.  The  user  is  then  requested  to  enteTthe  week 
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number  and  the  student  input  of  that  week  for  each  entry  phase.  The  procedure  is 
repeated  until  the  user  enters  0,0,0,  implying  no  more  data.  Control  is  returned 
to  the  calling  program. 

SUBROUTINE  PRINTl 

10.23  The  purpose  of  subroutine  PRINTl  is  to  print  the  weekly  student  input 
by  entry  phase.  This  is  the  total  of  all  student  sources.  Upon  entry,  the 
user  enters  the  first  and  last  week  to  be  printed.  The  student  input  for  each 
entry  phase  is  printed  for  all  weeks  in  Indicated  intervals.  The  user  then  enters 
the  next  interval.  An  entry  of  0,0  transfers  control  to  the  calling  program. 
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b.  Subroutine  TRAVEL 
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FIGURE  10  fCont) 
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Subroutine  PHZLEN 
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Subroutine  STUDIN 
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Subroutine  SORT 
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TABLE  28 

PROGRAM  PTRS2  VARIABLE  DICTIONARY 


Location 

Variable 

Name 

Dimension 

1 

Description 

PTRS2 

TITLE 

25 

Title  of  file 

STANDPTR 

lENT 

3 

Entry  phase  I 

STANDPTR 

ENTNAM 

3,3 

Entry  phase  name  (up  to  three  names) 

STANDPTR 

XTRA 

25 

Travel  time  between  phases 

FAST 

VALS 

3 

User  entry  of  student  input  for  entry 
phase  I 

PTROUT 

SAVE 

10 

Temporary  storage  of  PTR  for  pipeline  I 

STUDIN 

TSI 

10,21 

Average  student  output  for  pipeline  I, 
week  J 

STUDIN 

21 

Week  interval  I between  cumulative 
PTR  weeks 

I 

I 

I 


TABLE  29 

PTRS2  PROGRAM  AND  SUBROUTINE  DICTIONARY 


PTRS2 

Provide  user  with  three  options  to  set  up  the  data  for 
weekly  student  input  for  each  entry  phase 

PRINTl 

Prints  weekly  student  input  by  entry  phase 

STANDPTR 

Reads  weekly  student  input  and  travel  time  from  file 
WASRFILE 

FAST 

Accepts  user  entry  of  weekly  student  input 

STDOUTIN 

Provides  program  linkage  to  determine  weekly  student 
input,  based  on  a cumulative  student  output  at  a 
terminal  phase 

PHZLEN 

Calculates  total  length  of  training  for  a pipeline 

PRINT 

Prints  pipelines  associated  with  a particular  terminal 
phase 

PTROUT 

Accepts  user  entry  of  cumulative  PTR 

STUDIN 

Computes  weekly  student  input 

SORT 

Accumulates  weekly  student  input  for  each  pipeline 

PRINT3 

Prints  cumulative  student  input  for  all  pipelines 

TRAVEL 

Accepts  user  entry  of  travel  time  between  phases 

TABLE  30 

PROGRAM  PTRS2  LISTING 


inpc 

1?R 

l/ir< 

16R 

POP 

PPP 

P4R 

PARC 

PRR 

■lOR 

3PR 

34R 

3AR 

3RR 

AOR 

APR 

/i/iP 

/lAR 

/iRR 

RORC 

5PR 

5AR 

5AR 

5RR 

AOR 

APR 

AAR 

AAR 

ARR 

70R 

7PRC 


--pnOGPAM:  PTI  SP  (STMDEM  INPUT  MODUf.F-PAi^T  P) 

COMMON  NPH, I SU, SW ( P ) , I S ( 7 ) 

COMMON  NOMF(P5>3)>TP(P3,  1 0 ) , ’.v’KP ( P5  ) , LFNC  P5  ) , I Ti  AV( P 5 ) # 
<>.PIPNAM(  10,3),L/(p,  10),  V;K<  100, 10)  ,RI  Cinn,3),  I VFFK5CP1  ) > 
^.PTF  SC10,P1  ),NENTPA<  10) 

DIMENSION  TITLE(PS) 

ALPHA  TITLE 
FILENAME  T1,TP^T3 


no  PO  1=1,10 
DO  PO  j=i,ino 

PO  lvK(J,I)=0, 

DO  PS  I = 1 j 3 
no  PS  j=i»ion 
PS  si(J#i)=n. 

PR  PRINT  700 
30  INPUT, 10? 

IF(  ( inp.OF.  1 ) .and.  ( I0P.T.F.3)  )R0  TO  AO 
PRINT  710 
GO  TO  30 

AO  IC=1 

1F< lOP.EO .3)CALL  STDOUTI N( $ 1 00 ) 

IFr  I OP. EC.  1 )CALL  STANDPTiif  f 70,?,PR) 

70  CALL  TRAVEL 

IFf  lOP.FC.l  )fiO  TO  mo 
RO  CALL  FAST(IC) 
lOO  CALL  PR  INTI ( IC) 

IC=IC+1 
PRINT  7P0 

CALL  NOYES($ IPO. SRO) 
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TABLE  30  (Cont) 


74R  IPO  IF( ISC7) .GT.O)GO  TO  POO 

76R  PRINT  730 

7PR  CALL  NOYFS($300*5130) 

POP  130  PRINT  7A0 

RPR  INPUT  750, CTITLKt J)# J=1 # 10) 

RAR  TITLE(11)=" 

R6R  TP=CLK(X);  T3=nAT(X) 

PRR  T1="UASHFILK" 

90R  OPENFILE  T1 

9PR  K=10  + (IS<P)-1  )*P/l 

9/|R  SET(T1)T0  K 

96R  WP.ITE(T1)(TITLE(  J),  J=l,l  1 ),TP,T3 

9PR  WHITECTl )NPH, I S W, Cl S C J+3 ) , J= 1 , 3 ) , 

1 OOR  ATP , T3 , C ( NAME  C 1 5 ( I +3 ) , J) , J= 1 , 3 ) , I = 1 , I S U) 

lOPRC-  - -SET  UP  TRAVEL  ARRAYCREAL) 

lOAR  lAO  DO  1A5  1=1, P5 

106R  1A5  WKPCI )=1TRAVCI )+0.001 

lORR  WHITECTl ) C UKP C J) , J= 1 , P5 ) 

llOR  no  170  J=l,3 

IIPP  N=0 

llAR  DO  170  K=1,A 

116R  WRITECTI ) C S I C I +N, J) , I = 1 , P5 ) 

11 RP  170  N=N+P5 
IPOR  CLOSEFILE  T1 

IPPP  GO  TO  300 

IPARC 

1P6R  POO  ISC7)=P 
IPPR  T1="DYNC0M" 

130R  OPENFILE  T1 

13PP  f.ETCTDTO  155 

13AR  GO  TO  lAO 

136RC 

13PP  300  IFC ISC7) .EO.O)STOP 
lAOR  CHAIN"DYNAM*" 

lAPR  700  FORMATC/"  ENTER.  OPTION  TO  GET  TOTAL  STUDENT  INPUT:"/ 
lAAR  A"  1.  USE  THE  STANDARD  FILE"/ 

1A6R  A"  P.  enter;  all  NEW  DATA"/ 

lARP  A"  3.  ENTER  PTR  AT  TERMINAL  PHASES  TO  DETERMINE"/ 

150R  A"  STUDENT  INPUT.  CX)") 

15PR  710  FORMATC"  INVALID  REPLY  - RETYPE") 

15AR  7P0  FORMATC/"  ANY  COR.RECTIONS  OH  MODI  FI  CAT  I ONS  C Y,  N )"  ) 

156R  730  FORMATC/"  IS  THIS  AN  UPDATE  RUN  CY,N)") 

15RR  7A0  FORMATC"  THIS  IS  AN  UPDATE  RUN.  ENTER  A TITLE  *"//) 

lAOR  750  FORMATC  15A/I) 

IfiPP  END 
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TABLE  30  (Cont) 
a.  Subroutine  NOYES 


ii ' mr  O'  IT  I NF  QY  K 5 ( ♦ > ♦ ) 

ALPHA  K'0,YFS,L 

lf->PP 

DATA  K'0*YF.S/"K'%"Y"/ 

170» 

in 

Tf.pnT  PO,K 

If^'P 

pn 

FOirY'AK  1 A1  ) 

n/ip 

IF(L-.Fr.NO)f-FTn/:M 

\'/CP 

IF(N.Fr .YFSIPFTHHNP 

\ipp 

Pi  INT,"IM’ALID  i.FPLY 

IPOR 

no  TO  in 

1 pr'p 

FFD 

HETYPF'* 
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TABLE  30  (Cont) 
b.  Subroutine  PRINTl 


h 

t;- 


n. 


I 

I 


1 


1R/)R 

SUBROUTIFE  PRINTl (IC) 

1R6P 

COMMON  NPH,ISW,SW(P),IS(7) 

IPPP 

COMMON  MAME(P5,3),TPf  P5,  10),  Vrt<P{25),LE^'CP5)  , ITJ.AVCP5), 

- 

190P 

.^PI1->NAM(  10,3)*L'/(P,  10),  WK(  ion,  10),SI  ( 1 00 , 3 ) , I WFKKS 

!P1  ), 

19PP 

^^PTPS(  10,P1  ),MKFTPA(  10) 

• * 

19/)R 

DIMENSION  PHAX(P);  ALPHA  PHA7: 

196P 

DATA  PHAT;/"  *PH","A.5F  "/ 

19PPC 

• 

pnnp 

Pi  ; I NT  710  ^ 

pnsp 

IFCIC.Ef'.l  )PRINT  715 

:9'4 

pn/iP 

30 

INPUT,  N1,NP 

' ^ i 
1 ' ' 

P06P 

IF(  (N1 .EO.O) .AND.fNP .EO .0)  ) GO  TO  60 

POPP 

IF(  (N1 .GF. 1 ) .AND. (N? .LE. 100)  ) GO  TO  AO 

PlOP 

PR I NT, "INVALID  WEEK  RANGE  - RETYPE" 

pipp 

GO  TO  30 

21AP 

/|0 

Pi;  I NT  7P0 , ( PKA/, , I S ( J+3  ) , J=  1 , I S U) 

V 

P16« 

DO  50  I=N1,NP 

PIPR 

50 

PRINT  7P5, I , (5  I ( I , J) , J=1 , I S W) 

■ i 

PPOP 

PRINT  730 

PPPP 

GO  TO  30 

! . \ 

PP/)P 

60 

RETURN 

: \i 

I 

2P6P 

710 

FORMATC/"  TO  PRINT  WEEKLY  STUDENT  INPUT  BY  ENTRY 

PHASE"/ 

\\l 

1 

PPPP 

A"  EMTE1-.  FIRST  AND  LAST  '/F-EK  OF  INTF.REST(XX,Xy)") 

P30P 

715 

FORMAT!"  ENTER  0,0  FOR  NO  FURTHER  OUTPUT  ") 

' ' 

i 

P3PP 

7P0 

FORMAT ( " WEEK", 3 ( PAA , I P ) ) 

1 

P39R 

7P5 

F0RMAT(IA,3F9.1  ) 

1 

P36R 

730 

FORMAT!/"  FIRST  AND  LAST  '-lEEK  OF  I NTEREST ! XX,  Xy  ) 

) 

' 

P3PR 

END 
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TABLE  30  (Cont) 
c.  Subroutine  STANDPTR 


p/I  rip 
r>/ipp 
p/i/iP 
p/\f>p 
P/\PP. 
PSOP 

P5/|P 

P56R 

P5PP 

P60P 

?r,pp 

PAAP 

Pf>f^r< 

pfipp 

P70R 

P.IP.P 

P1/\P 

p?r>p 

P7P.RC  - 

PROP 

PRPR 

PRAP 

PPf>P 

PPPR 

pqnp 

P9PR 

P9AP 

P9fiR 

P9RRC- 

30nRC 

pnPR 

30AR 

30AP 


SHBROUTIMF.  STANDPTH  <*>>*=) 

COMKOK  NPH>  ISW,SV’(P)^  IS(7) 

COMt^OK  NAKF(P5,3)>TP(P5^  in),  WKPt  P5),LFi'  ( P 5 ) , I Ti-.  A P 5 ) 
^.PiPMAKf  10,3 ) ,Lxcp,  10) , WK(  inn,  in> ,si  < inn,3),  I 'jffk.scp  i ) 
APTRSt in, PI ),NFMTPAC10) 

DI  MENS  I ON  T 1 TLF  ( P 5 ) , I FM  ( 3 ) , ENTNAM  C 3 , 3 ) 

DIMFNSIOK  XTRA(P5) 

ALPHA  TITLF,FNTNAM,naMF 
FILENAME  T1,T2,T3 
T1 ="WASr  FILE" 

OPENFILF  T1 

K=in+(  i5(P)-n*PA 

SETCTl ) TO  K 

RFADtTl)  (TITLFr J), J=l, 1 5) 

HFADdl  ) NPH1,ISI;1,(IFNT(  J),  J=l,3), 

A TP,T3,((ENTNAM(1,J), J=1,3),I=1,ISU1  ) 

PRINT  70n,  (TITLFf J), J=1 , 15) 

PRINT  710,TP,T3 
CALL  N0yFS(SPn,?5) 

- -VJALIDATF  DATA  FROM  FILE 

5 IFCNPH.NF.NPHl )00  TO  POO 
IFdSH.NF.ISVn  )CO  TO  POO 
DO  6 I = 1,1  S'. I 

IFdFNTCI  ) .NF.IS(I+3))GO  TO  POO 

6 CONTINOF 

DO  7 I=1,ISH 
DO  7 J=l,3 

IF(ENTNAM( I , J) .NF .NAMFC IFNTf I ), J)  )G0  TO  POO 

7 CONTINUE 

- -DATA  AGIiEFS 

- READ  IN  TRAVEL(RFAL)AND  CONVERT 
R RFADtTl )(MTRA(J),J=1,P5) 

DO  9 1=1, P5 

9 ITRAVd  )=XTRA(1  )+0.nni 


TABLE  30  (Cont) 

c.  Subroutine  STANDPTR  (Cont) 


no  on  j=i,3 

N'=n 

no  m K=i,/i 

RKAnCTl)  (SKI+Nj  J),I  = 1>?.5) 
in  M=N+25 
P.n  CONTINUE 
PP.INT  700 

CALL  N0YEi'(?7n,?.50) 

50  PRINT  73n,((NAME<I>J),J  = l,m,lTPAU(I  ),I=1,NPH> 
70  CL05EFILE  T1 
HETUl'Nl 

BO  CL05FFILE  TliF.FTUiiNO 

• - -INC0NSI.5TFNT  PALiJF.5 
000  PRINT  750 

PPINT>"TMF  UAUTF5  F'’ON  THF  FILE  ARE:" 

PRINT  7 AO  , NPH  1 , I 5 V:  1 # ( I F NT  ( J > , J=  1 , I S n 
Pli  I NT  7 70  , < ( FNTN  AN ( I # J > , J = 1 , 3 ) , I = 1 # 1 S W 1 ) 

PHI  NT, "THE  VALHEH  nERIUEn  FHON-RASCAS  ANP  PIPE- 
PHI  NT  7A0,NPH, ISV, < IS< J+3), J=l,  ISU) 

PRINT  770, ( (NAEFf I S C I ♦3 ) , J) , J=1 , 3 ) , I =1 , I 51) 
PRINT  7BO 

CALL  NOYES<SBO,$B> 


700  FORNATC  THE  PFHNANENT  FILE  TITLE  1 5 : "//OX,  1 5A/|  ) 

710  FOPMATI/"  THE  FILE  WA.5  LAST  MOniFIFO  AT  ",AB, 

ft"  ON  ",AB//"  USE  THF,  VALUES  FliOK  THIS  FILF(Y,N)") 

700  FOINATI/"  PRINT  OUT  TRAVEL  TIMES(Y,N)") 

730  FOHMA.Tt/"  PHA.5E  NAME  ♦ TPAVF.L"/05C  1X,3AA,  I/i /)  ) 

750  FOP.MAT(//"  * * INCONSISTENT  DATA  FROM  FILES  + *"//) 
750  F0f'MAT(/5X,"NUMP-ER  OF  PHASES",  1 5/ 
ft5y,"NUMBE>  OF  ENTRY  PHASES", I 5/ 
ft5X, "ENTRY  PHASES  NO.  ",3IA) 

770  F0RMAT<5X, "ENTRY  PHASE  NAMES : "/5X, 3 ( OX, 3AA > ) 

7B0  FORMATt/"  USE  THE  VALUES  AND  IGNORE  THE  ERROR ( Y, N) " ) 
return; END 


TABLE  30  (Cont) 
d.  Subroutine  FAST 


3R/!f< 

3Pf'P 
39or-t 
3 or>  7>. 
30/|R 
3or-,p 
39  PP 
/iOOR 
/lOPP 
/m/|P 
hr\(~p 
/inp.R 
^1 1 OP 
/il  P P 
/1 1 /!  p 
/!  1 r^PC 
/1 1 p p 
/i90R 
/|0  0 o 

/IP/JP 

Apr^p 

/:PPP 

/i30P 

/|3PP 
/i3AP 
/i3  9P 


S"PPOr!TI'''K  FP.‘:.T(TC> 

r,  ^ PH,  I .S'-,  p ) , i s ( 7 ) 

C OFFOV  ^•A MF  ( P 'i  , 3 > , TP  ( P 5 , 1 0 ) , VJKP  ( ? 5 ) , LFl'  ( P 5 ) , m . P V ( P 5 ) 
’.piPMAt-iC  in,3) ,Lv (P,  in>, -.JKC  mn,  io^,si  ( 1 on,3), I . ffk;;cp  1 ) 
®-PTP.S<  in, PI  ),FFFTPA(  in) 

DIFF.MSIOF  ')A1.(3) 

P;i  I FT  nnn , ( i .s  r i +3 ) , I = 1 , i .s  W) 

PH  I FT  60S 

5 I FPHT  , I ' ’K,  ( i;OL  ( .J  ) , J=  1 , I s ) 

IFf IVK.FO .0)00  TO  SO 

IF(  < IVK.LT  .0)  .0::  .(  IPK.GT  . 100)  )00  TO  30 

no  in  j=i,ir/.- 

IFCV'ALt  J)  .LT.O)GO  TO  30 
10  CO^'TIFOF 

no  is  j= 1,150 

is  51  CI'.vK,  J)=VALC  J) 

PP'IFT  610 
GO  TO  S 

30  PLIFT,"!  FOAl.in  PKPLY  - PFTYPF" 

GO  TO  S 

SO  '••'FTOPF 

600  FOPKATf/"  THP:  Oi.nFP;  OF  THP:  EKTt  Y FPASF.5;",3iA) 

AOS  FOPFATt/"  El'TFP  THE  PEEK  FUMPEP;  AFP  THE 
" .5TMDEFT  IFPHT'V 

.“I"  FOP  EACH  Et-TPY  PHA.5E  (IF  THE  PPOPEP.  OPDFi' )”/ 

A”  EC.'TE'.  0,0, n FOP  FO  FOi.THE  DATA  ••) 

610  FOi’FAT  (”  + iV'E'/T") 

F>'D 
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TABLE  30  (Cont) 
e.  Subroutine  STDOUTIN 


A3BR  SHBROUTIKE  STDOUTINK*) 

COMMON  NPH,ISW>SV’(S)>ISC7) 

AAPP  COMMON  NAMF(R5,3),TP(P5j 10)*VmP(P5)jLFNCP5),ITHAU(P5), 

/HAAP.  APIPMAMC  10,3),LX(P,  in),yi«  100,10)>SI  ( 1 00>  3 ) , I '-.’EFKS  ( P U , 

AA68  ^iPTRSC  10>P1  ),NENTPA(  10) 

AARR  NPIPE=1S(3) 

A50R  PRINT  710 

A5PR  CALL  N0YES($10/$5) 

AfSAP  05  PRINT  715 

A56R  PRINT  716 

A5RR  10  CALL  TRAVEL 

A60RC 

A6PR  DO  60  I=1,NPH 

A6ARC  - - 15  PHASE  I A TERMINAL  PHASE? 

A66R  DO  25  J=1,NPIPE 

A6RR  IF(  TP(I^J) .LT.0.0  )G0  TO  30 

A TOR  25  CONTINUE 

A7PR  GO  TO  60 

A7ARC 

A76R  30  CALL  PH7.LEN(I,K) 

A7RR  M2=0 

AROR  35  M1=MP+1 

APPR  IFCMl .GT.K)GO  TO  60 

ARAR  DO  AO  J=MUK 

AR6R  IF(  L7(P^M1 ) .EO .L/CP^ J)  )G0  TO  AO 

ARRR  MP=J-1 

A90R  GO  TO  A5 

A9PR  AO  CONTINUE 

A9AP  MP=K 

A96RC-  - - MlfltMP  ALE  INDICES  FOR  LX 
A9RRC 

500P  A5  CALL  PR  I NT ( I » Ml , MP ) 

502R  CALL  PTROUT(  LX( P,M1 ) ,MP-M1 + 1 ,NI NT  ) 

50AR  IF(-2.EC.IWEEKSC1 ) )G0  TO  70 

5068  IF(-1  .FO.IVtFFKSCl  ))G0  TO  60 

50RR  IFCO.EO.I'’EEKS<  1 ))  GO  TO  35 

510R  CALL  STUDIN(I,NINT*M1 ,MP) 

51  PR  PRINT  7P0 

51AR  CALL  N0YES(SA5,S50) 

516R  50  CALL  SORTCNINT) 

51RR  GO  TO  35 

520RC 

5PPR  60  CONTINUE 
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TABLE  30  (Cont) 

e.  Subroutine  STDOUTIN  (Cont) 


70  COLL  i'i  I M3 

■'  - -r.Ki'  "p  PI.  FIFO!.  PUF  PY  FFTiPY  PHOPF 

no  ipn  Fl=l,FPl!'F 
SPHR  K=MFFTPA(F1 ) 

DO  lin  0=1,3 

fS3/|R  IFCIS(.J+3)  .Ef  .!OnO  TO  IPO 

POOR  no  CONTI  tOTF 
53RR  STOP 

F)/in«  IPO  no  1/in  i = i,ion 

S/!PR  i/|n  SI  ( I , J)=SI  CI  , J)+'.K(  I ,N1  ) 

‘ SFiOP  ISO  CONTINPF 

5/iSRC 

S/iPo  710  FO’-  f'OT( //"  PPII’T  POTO  EMRilFC  I ''■'ST''T!CT  I O'-S  C Y,  ? O '*  ) 

ssoR  715  koi'Fatc/”  movr  foi.mat  is  . . . spfi  f"/ 

55PP  (1)  '::vn=(fffk;; ) most  pf  fithik  hangf  of  the  TOiA].,”/ 

' 55/iP  A"  TPAINING  T I NF  AND  99  ADDITIONAL  I'FFK'’. ."/ 

55riP  A"  (P)  yy  CnNni.ATIUF  STPDFNT  OrtTpnT  F07.  FAC!’"/ 

S5RR  !>,"  SOn  .CF  AT  i'PF  FND  OF  '-'FEK 

SAor  71S  FO  FATC/"  AFTFr  STPD.  ODTpHT  FNTFPFPiTYPF'V 

5APR  0,0,... TO  Pj.It'i’  STMDFl'.T  1 1 ^’OT  !^Y  .‘-UiPiCF"/ 

50/0’  -1,0,. ..TO  s:kip  ?■;  iN'min  py  sofs.cF"//) 

505"  7PO  FOiN/ATC //•'  ACCFPTAP.T.F  STnDF.F;!'  I NPIiT /OMTPtrr  (Y,!'")") 

55RR  NFTU -Njl  ;F^  D 


1 

I 


V 


1 


TABLE  30  (Cont) 
f.  Subroutine  PHZLEN 


57npt 

S7PP 

57 

576P 

57PB 

5R0RC 

5RRR 

5RAR 

5R6R 

5RRR 

590R 

59PR 

59^1  R 

59  6 R 
59RR 
600RC 
50  PR 
60/1 R 

60  6 R 

60  RR 
610R 
61PR 
61/iR 
616R 

61  RR 
6P0R 
6PPR 
6P/1R 
6P6RC 


SUBPOUTINE  PHP^LF.Nt  I 
C OMI^ON  NPH,  I S\-J,  S '■; ( P ) , I S < 7 > 

CO;<^!OW  NAME(P5/3),TP(P5, 10)>V;KP(P5)  jLEI\'(P5>,  ITnOP(P5) 
^.PIPNAM(  10,3)  ,LXCP>  10),WK(  100, 10), 51(100, 3),  I ''.EEKSCP  1 ) 
RPTP.S  ( 1 0 , P 1 ) , NENTPA (10) 

DO  5 J=l,10 
LX( 1, J)=0 
5 LX(P,J)=0 
MPIPE=IS(3) 

K=0 

DO  50  J=1,NPIPE 

IF(  TP( I , J) .GE.O .0  )G0  TO  50 

K=K+1 

LX(1,K)=J 

- - NOv;  FIND  LENGTH  OF  TOTAL  TRAINING 
IC  = 1 

IT=LEN( I ) + ITnAU( I ) 

M=-TP( I , J) 

PO  IF(M.EO.O)  GO  TO  AO 
IT=IT+LEN(M)+ITPAU(M) 

M=TP(M, J) 

IC=IC+1 

IF(  (N.LT.O) .OP.(M.GT.NPH)  )G0  TO  100 
IF( IC .GT.30)G0  TO  100 
GO  TO  PO 
AO  LX(P,K)=IT 
50  CONTINUE 


TABLE  30  (Cont) 
f.  Subroutine  PHZLEN  (Cont) 


f>P.PP.C. 

- - 

OiiDKI'  L;--  by  total  LFK'GTH  of  Ti■:AI^)I^;^ 

IFCK.LF.l  IRF-Tni-K 

nn  pn  ,i=i,K 

K 1 =K- J 

IF(K1 .Fr .0)00  TO  PO 

r,3PE 

no  pn  L=i,Ki 

Mnp 

IF(  Lrcp^l.)  .LF.L--’(n,L+l  ) )00  TO  PO 

ry/iP.P 

no  75  M=UP 

IT=LXfM>L) 

L:':<i'',L)=L:’(r-SL+i ) 

75 

l.Xf  K,L+1  ) =IT 

r,snp. 

''-.5PRC 

pn 

CONTIKOF. 

r-s/iP, 

PFTOi  F 

r^S6^-:C 

- - 

PAn  PIPFLIK'F 

r-.3P.P. 

inn 

PP  I FT  70n , ( P I PFA.M ( J, L)  , L=  1 , 3 ) 

r-riOR 

?nn 

F0i.KAT(//"  fatal  FHPOP  IM  PIPLIFF;  ",3A/i///) 

r,r,P« 

r>To;';Fi:n 

170 


I 

I 


TABLE  30  (Cont) 
g.  Subroutine  PRINT 


66AR  SUBHOUTIME  PRI NT ( I j Ml ) 

COMMON  NPH,  IS(7) 

66RP  C OMMON  NAMF.(  25, 3 ) , TP ( 25 , 1 0 ) , Iv-RP  (25),  LEK ( 25 ) , I TF.A V(  2 5 ) , 

570P  ^-PIPNAM(  10,3),LX(2,  1 0 ) , '.•mc  1 00,  1 0 ) , S I ( 1 00 , 3 ) , I '.'KEKSCP  1 ), 

672P  fiPTPSC 10,21 ),NENTPA( 10) 

ft7/iPC 

(■,768  PRINT  70n,I,(I'AKE(I,  J),J=1,3) 

67PR  Kl=l 

6R0P  DO  10  K=M1,M2 

6P2P  K2=LX(1,K) 

68(\8  PRINT  720,K1,(PIPNAM(K2,  J),  J=l,3) 

6P6R  10  K1=K1+1 
r-iPRPC 

590P  RETURN 

692P  700  FOrMAT(/"  ENTEii  PTP  OUTPUT  FOR  TEI'.MINAL  PHASE  ”, 

69AP  12,”:  ”,3AA/  ” THE  RELATED  SOURCES  FOR  THIS”, 

696R  f!-  ” PHASE  ARE:”  ) 

69PR  720  F0RMAT(3X,I2,3/,3AA) 

700R  END 


TABLE  30  (Cont) 
h.  Subroutine  PTROUT 


70PF  SnB'-'OtJTINK  PTi'OUTCLENTH^NIJMPIP,  17) 

70^lB  COMMON  NPH,I.SV;*SV?(R)>IS(7) 

7068  COMMON  NAME C P 5, 3 > , TP ( S5, 1 0 ) , WKP ( R5 ) , LENC P 5 ) , I TPA V( P 5 ) , 

708  8 APIdnaMC 10,3)>L7(P,  10), WK( 1 00 , 1 0 ) , S I Cl  00 , 3 ) , I PEFKSCP 1 ), 

7108  APTRSC 10,P1 ),NENTPA( 10) 

71P8  n I MENS  I ON  SAVECIO) 

71A8  ALPHA  CO  ; C0="," 

7168  DO  no  J=1,P1 

7188  Il>F.EKS<J)=0 

7P08  no  no  1 = 1,10 

7PP8  no  PTP.SCI,  J)=0. 

7PA8  IT0T=NUMPIP+1 

7P68  ILEN=LENTH+99 

7P88  Pi  . I NT  900,LENTH,  ILEN,  ITOT 

7308  17=0 

73P8C 

73A8  151  17=17+1 

7368  I Nprrr  , I i;eEKS  C 1 7 ) , ( PTES  C J,  I X ) , J=  1 , NHMP I P ) 

7388  IFC -P .EO . IHEEKSC 1 ) )G0  TO  390 

7A08  IFC  ( n.'KFKSC  17)  .EO  .0)  .Oi' . C -1  .FQ  . I V.’EFKSC  17  ) ) )G0  TO  390 

7/IP8  IFCIHEEKSC  17)  .LT  .LFNTH.Or  .1 '.'EEKSC  !>:)  .GT  .ILEN)GO  TO  A50 

7A/I8  DO  170  J=1,NIIMPIP 

7/.'68  IFCPTPSC  J,IX)  .GE.O)GO  TO  170 

7-?i88  PRINT  960 

7508  r'=I7-l 

75P8  GO  TO  151 

7568  170  CONTINUE 

7568  IFC IX.EC . 1 )G0  TO  360 


TABLE  30  (Coiit) 
h.  Subroutine  PTROUT  (Cont) 


75BBCHECK 

FOR  ASCENDING  SEOtlEMCE  OF  PTRS  BY  WEEK 

760R 

300 

NX=IX-1 

76R8 

DO  335  I=1jNX 

76/lR 

310 

IF( lUEEKSC I ) .LT.IUEEKSt  I + l > ) GO  TO  335 

766R 

IFdUEEKSd  >.NE.IUEEKS(I  + 1))  GO  TO  400 

7688C 

DUPLICATE  PTRStV/EEK)  liH^RE  ENTERED-VOID  FIRST  ONE. 

7708 

PRINT  910,IWEEKS(I )>(CO#PTRSf J>I ) # J= 1 , NUMPI P ) 

7728 

PRINT,"  " 

7748 

DO  330  J=I,20 

7768 

I WEEKS ( J) = I WEEKS  t J+ 1 ) 

7788 

DO  330  K=1,NUMPIP 

7808 

PTRStK, J)=PTRS(K, J+1 ) 

7828 

330 

CONTINUE 

7848 

IX=IX-1 

7868 

IFCIX.LE.l ) GO  TO  360 

7888 

GO  TO  300 

7908 

335 

CONTINUE 

7928C 

7948 

338 

DO  350  1=1, NX 

7968 

DO  340  J=1,NUMPIP 

7988 

IF(PTRS(J,I).GT.PTRS(J,I+1))  GO  TO  341 

8008 

340 

continue 

8028 

GO  TO  350 

8048 

341 

PRINT, "INCORRECT  SEOUENTIAL  CUMULATIVE  PTR  FOR" 

8068 

PRINT  912,IUEEKS(I ),(CO,PTRS( J, I ), J=1,NUMPIP) 

8088 

PRINT  912,IUEEKS<I  + n,<C0,PTRSC J,l  + n,J=l,NUMPIP^ 

8108 

PRINT, "DELETE  LINE  1 OR  2 CX)" 

8128 

343 

INPUT,M 

8148 

IFCCM.EQ.l ).0R.(M.E0.2))G0  TO  345 

8168 

PRINT  960  ; GO  TO  343 

8188 

345 

M=I+M-1 

8208 

DO  347  K=M,20 

8228 

I WEEKS ( K ) = I WEEKS ( K+ 1 ) 

8248 

DO  347  N=1,NUMPIP 

8268 

347 

PTRS(N,K)=PTRS(K,K+1 ) 

8288 

IX=IX-1 

8308 

GO  TO  365 

8328 

350 

CONTINUE 

8348 

IF(IX.GE.20)G0  TO  375 

8368 

360 

PRINT  917 

8388 

GO  TO  151 

8408 

365 

NX=IX-1 

8428 

GO  TO  338 
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TABLE  30  (Cont) 
h.  Subroutine  PTROUT  (Cont) 


r<^nf< 

85/1  ri 
8568 
8588C 
8608C 
86R8 
86/|8 
8668 
868  8 
8708 
8788 
87/l8 
8768 
8788 
8808C 
P8P8 
8 8 /1 8 
88  68 
8888C 
8908 
8988 
89/(8 
8968 
8988 
9008 
9008 
00/1.8 
9068 
9088 


375  PMKn’>"T)-:hKIKATIOK  OF  PTi!  INPOT-PO  HAVF  PFFN  FFTFi- 
AF.n.  KNTE!.  POINT  OFS I GNAT  I Ot' . " 

IX=01 

I MPDT  ^ I VF.KV.H  ( r/  ) , < PTPS  ( J,  I X ) , J=  1 , NUXP I P ) 
IF(n;EEK5(r/).GT.O)G0  TO  375 
390  I ETMl  N 

LOCATED  A NOM-OEOUEMTI AL  SITUATION 
/(OO  I SyyK=  I UEEKS  ( I ) 

I ’’EEKS  ( I ) =I  WEEKS  Cl  + 1 ) 

IWEF.KSC  I + l )=ISVWK 
DO  APO  J=1,NUMPIP 
SAVEC  J)  =PTP.S(  I ) 

PTl  .SC  J,  I ) =PT!LSC  J,  I + n 
PTIiSC  J,  I + l )=SAVEC  J) 

/(PO  CONTINUE 
GO  TO  300 

/(50  POINT  9P0,LENTH,  ILEN 
ix=r'-i 
GO  TO  360 

900  EOi-;MATC"  STUDENT  OUTPUT  RANGE ( WEEKS  ) 'S  I 3 > " TO",  I A/ 

A"  ENTER", 1 3,"  VALUES  ") 

910  FOinCATC"  THE  FOLLOWING  PTH  HAS  BEEN  SCHATCHED  DUE  TO 
A DUPLICATE  WEEKS"/PX,IA,10CA1,E5.0)) 

91P  FOP.MATC"  WEEK  ",  I A , 1 0 C A 1 , E5 .0  > ) 

9 1 7 FOP.MAT  ( " + NEXT"  ) 

9P0  EOHMATC"  PTH  WEEK  OUTSIDE  RANGE  OF  ",I3,"  TO  ",I3," 

H . LAST  EM-RY  IGNORED."//) 

960  FOHMATC"  INVALID  REPLY  - RETYPE") 

E^T) 
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TABLE  30  (Cont) 
i.  Subroutine  STUDIN 


k 


9108  SUBROUTINE  STUDI N( ITER* NI NT>M1 ,M2 > 

9128  COMMON  NPH, I SW* SWt 2 ) * I S ( 7 ) 

91A8  COMMON  NAME( 25* 3 ) *TP( 25* 1 0 ) * UKP ( 25 ) * LEN( 25 ) * I TRA Vt 25 ) * 

9168  *PIPNAM( 10*3)*LX(2* 10)*WKC 100*10)*SI ( 1 00* 3 ) * IVrt:EKS  ( 2 1 ) * 

9188  tPTRSf 10*21 )*NENTPA( 10) 

9208  DIMENSION  TS I ( 1 0* 2 1 ) * W( 2 1 ) 

9228  DO  5 1=1*10 

92A8  PTRSC 1*21 )=0. 

9268  DO  5 J=l*21 

9288  5 TSI(I*J)=0. 

9308C  - - PRINT  OPTION 
9328  IPRINT=IUEEKS(NINT) 

93A8  L=LX(2*M1 )+99 

9368  IWEEKS(NINT)=L 

9388  IF(  L.EQ.lWEEKSCNINT-1 ) )NINT=NINT-1 

9A08C  - - FIND  INPUT  WEEKS 

9428  L=LXC2*M1)-1 

9448  DO  10  I=1*NINT 

9468  10  lUEEKSt I )=IWEEKS(I )-L 

9488C  - - FIND  INTERVAL  LENGTH  ♦ FIRST  INTERVAL  IS  ONE 
9508C  WEEK  LONGER  C GRADUATE  THAT  \iEEKl  i 

9528  L=NINT-1 

9548  W( 1 )=IUEEKS( 1 ) 

9568  DO  15  I=1*L 

9588  15  W(I+1 )=IWEEKS(I+1 )-IWEEKS(I ) 

9608C  - - FIND  INCREMENTAL  PTR  OUTPUT 
9628  K=M2-M1+1 

9648  DO  20  M=1*K 

9668  TSICM*1)=PTRS<M*1) 

9688  DO  20  I=2*NINT 

9708  20  TSI(M*I)=PTRS(M*I)-PTRS(M*I-1) 

9728C  - - AVERAGE  THE  INCREMENTAL  OUTPUT  OVER  THE  INTERVAL 

9748  DO  35  M=1*K 

9768  DO  30  I=1*NINT 

9788  30  TSI(M*I)=TSI(M*I)/W(I) 

9808C  - - DOES  TSICM*NINT)  NEED  CHANGING? 


9828  IFf  TSI  f M.NIMT)  .LT.n.  ) T9  T f M . MI  NT  ) =TS  I f M . l.> 


TABLE  30  (Cont) 
i.  Subroutine  STUDIN  (Cont) 


QP,PP. 

900 

090  B 

99  PB 

99  A B 

AB 

996BC 

- - 

99BB 

lOOOB 

F01:MAT(  1>S  3F7.P.) 

DO  AP.  1 = 1,  in 
DO  AP  J=1,P1 
PTD.SC  I , J)=n  . 

NOV  COr-IPtlTE  .STUDENT  INPUT 
DO  100  I=N1,NP 
J=I+1 -K1 


lOOPF  NP=LX(1,I) 

lOO^lFC  - - NON  GET  ATTPITION  PATES  FOP  PIPELINE 
1006F  X = -TP(  ITEr;,NP) 

inOFF  50  N=X 

iniOF  AT=1 .-(X-N-n.nnnnni ) 

iniPF  DO  60  L=1,NINT 

lOlAF  60  TSI ( J,L)=T5I (0,L)/AT 

101 6F  IF(M.EO.O)GO  TO  70 

lOlFP  X=TPfM,NP) 

lOPOF  GO  TO  50 

10PP.«C-  - -•.•ET  UP  PTPS  FOP  SUP.POUTINE  SOPT 

inr'/iP  70  DO  7 5 L=1,NINT 

10P6F  75  PTPS(KP,L)=TSI ( J,L) 

lOPFO  inn  CONTINUE 

1030FC 

103P8  IFC-1  . EC. I PF I NT )PETURM 

lOGAFC  - - PRINT  OUT  UEEKLY  INPUT 


NP 


1036F 

103FF 

lO/lOF 

10/iPR 

10/lAF 

10A6r^ 

lOARF 

1050R 

infSPR 


L=1  ;N=r'?P-Ml  + l 
IF(M.GT.5)N=5 
Ni=iii;  r:p=Mi+N-i 

no  PRINT  700,  <NAME<  ITER,  J),J=1 ,3> 

PP I NT  7 1 0 , ( ( P I PNAM(  LX  ( 1 , I > , J)  , J=  1 , P ) , I =N  1,,  NP  ) 
Ni=i  ; np=I!.;efks(1) 

DO  120  I=1,N1NT 

Pin  NT  7P0,N1 ,NP, (TSI ( J, I ), J=L,M) 

^^l  =NP+1 


10  SAP 
1056« 
105PF 
inOOF 
106PF 
ino/iF 
1066P 
106GB 
1070B 
1072B 


IPO  np=i’;eeks(I  + i ) 

I Ft  (K.LT.5).0" . CL.GT.l)  )G0  TO  300 

ni=mi+m;  np=mp 
L=i'+i  ;k=mp-wi  + i 
GO  TO  1 10 
300  HETUi:N 

700  FOHMATC/"  PEEKLY  STUDENT  I NPUT , 3A4 , " +*:!•" 

710  FO;NAT("  V.’FEKS",AX,5(AX,2AA)) 

7P0  FOi  XATCIX, IP,"  TO  " , I P , 5< 2X , F 1 0 .P ) 5 
EI-iD 


TABLE  30  (Cont) 
j . Subroutine  SORT 


107'|R 

1076« 

107RR 

lOROP 

lORRFt 

lOB/iBC 

10868C 

10888 

10908 

10928 

109/iR 

10968 

10988 

11008 

11028 

110^8 


SUBROUTINE  SORT(NINT) 

COMMON  NPHj  ISW»SIK2>*  rSC7> 

COMMON  NAME(25>3)>TP(25>  10),Vn<P(25)»LEN(25)>ITnAU(25), 
APIPNAM(10j3),LXC2,  10)#l/KC100^  10)>S1  ( 1 00, 3 ) , I WEEKS  ( 2 1)  , 
APTRS(10,21),NENTPA( 10) 

- UPDATES  UK  ARRAY  * HAS  CUMULATIVE  STUDENT  INPUT 
BY  PIPELINE  FOR  EACH  l-HEEK 
Kl=l 

NPIPE=IS(3) 

DO  50  I=1,NINT 
K=IUEEKS( I ) 

DO  20  J=K1,K 
DO  20  L=1,MPIPE 
20  UK ( J,  L ) ='^7K ( J,  L ) +PTRS  C L,  I ) 

50  K1=K+1 

return; END 


177 


f': 


t.  1 

■iM 


v! 


V, 

. ili 

. « 


1 1 5/4R 
11568 
11588 
11608 
1169J' 
1 16^18 
11668 
11688 
11708 
11728 
11748 


TABLE  30  (Cont) 
k.  Subroutine  PRINTS 


11068 
11088 
1 1 108 
1 1 128 
1 1 148 
1 1 168C 
11188 
11208 
11228 
11248 
11268 
11288 
11308 
11328 
11348 
11368 
11388 
11408 
11428 
11448 
11468 
11488 
11508 
11528C 


10 


30 


35 


50 


SUBROUTINE  PR  I NT 3 
C OMMON  NPH , I S U, S U ( 2 ) , I S ( 7 ) 

COMMON  NAME(25^  3),TP(25j  1 0 ) > V7KP (25  ) ^ LEN(  25  ) > I TRAV(  2 5)  , 
APIPNAM(  10>3)#LX(2,  10),  WK(  100,  1 0 ) , S I C 1 00, 3 ) , I'.TEEKS  ( 2 1 ) , 
ftPTRSC 10,21 ),NENTPA( 10) 

PRINTS  OUT  CUMULATIVE  STUDENT  INPUT 
NPIPE=IS(3) 

PRINT  700 
INPUT, Ml , M2 
IF(M1 .EO .0)RETURN 

IF(  (O.LT.Ml ) .AND. (Ml .LE.M2) .AND. (M2.LE. 100)  )G0  TO  30 
PRINT, "INVALID  REPLY  - RETYPE" 

GO  TO  10 
N=l)  M=NPIPE 
IF(M.GT.5)M=5 
PRINT  710 

720,((PIPNAM(I, J), J=1,3),I=N,M) 

J=M1,M2 

730, J, ( WK( J, I ),I =N,M) 

710 

IF(  (NPIPE.LT.5) .0R.(N.GT.l ) )G0  TO  70 
N=M+i;  M=NPIPE-M 
GO  TO  35 


PRINT 
DO  50 
PR  I NT 
PK I NT 


70  PRINT  740 
GO  TO  10 

700  FORMAT(/"  TO  PRINT  CUMULATIVE  STUD.  INPUT  FOR  ALL" 

A"  SOURCES  ENTER"/"  FIRST  AND  LAST  WEEKS  OF  INTEREST" 
A"  (XX, XX)"/"  ENTER  0,0  FOR  NO  FURTHER  OUTPUT") 

710  FORMAT (/5("  - -")  ) 

720  F0RMAT(/10X, "CUMULATIVE  STUDENT  INPUT"// 

A"  WEEK",5("*",3A4)) 

730  FORMAT( 1X,I2,2X,5(FR.2,5X)  ) 

740  FORMAT(/"  FIRST  AND  LAST  WEEKS  OF  INTEREST  (XX, XX)") 
END 


TABLE  30  (Cont) 

1.  Subroutine  TRAVEL 


1176« 

1 17RP: 

1 1 ROR 
IIRSR 
1 IR/lR 
1 1R6BC 
IIRRP 
11908 
1 19SR 
1 19^iR 
11968 
11988 
18008 
18088 
180A8 
18068C 
18088 
18108 
18188 
181/18 
18168 
18188 
18808 
18888 
188/18 
1S868C 
18888 
18308 
18388 
1S3/I8C 
18368 
18388 
18/108 
18/188 
18/!/!  8 
18/168 
12/188 
18508 
18588 
185/18 


SUBROUTINE  TRAVEL 
COMMON  NPH,  I S SUt  8 ) > I S ( 7 ) 

COMMON  NAME(85*3),TP(S5>  in),UKPC85),LEN(85)#rri'AVC85) 
APIPNAMf 10,3),LX(S, 10)*UK( 100* 1 0 ) , S I ( 1 00* 3 ) * I UEEKS ( 8 1 ) 
APTRSt 10*81 )*NENTPA( 10) 

GO  TO  100 
5 PRINT  700 

CALL  NOYES (530*5 10) 

10  PRINT  705 

DO  15  I=1*NPH 

15  PRINT  710*(NAME(I* J)* J=1*3)*ITRAV(I ) 

30  PRINT  780 

CALL  NOYES  ( 580*  5/|0) 

40  PRINT  730 

45  INPUT* 1 1*18 

IF(I1 .EO.0)G0  TO  80 

IF(  (Il.LT.Ol.OR.CIl.GT.NPH)  )G0  TO  60 
IF{  (I8.LT.0)  .0R.(I8.GT./I)  )G0  TO  60 
ITRAV<I1)=IS 
PRINT  740 
GO  TO  45 

60  PRINT*"INVALID  REPLY  - RETYPE" 

GO  TO  45 

80  PETUi’N 
100  PRINT  750 

CALL  NOYES (580* 540) 

700  F01;MAT( /"PRINT  PHASE  NAMES  AND  TRAVEL  TIME  REOMIRED"/ 
A"  BEFORE  STUDENT  ENTERS  THE  PHASE  (Y*N)") 

705  FORMAT(/"  PHASE  NAME  * PEEKS") 

710  FORMAT (8X*3A4* 14) 

780  FORMAT(/"  ANY  MODI FI CATI ONS ( Y* N)" ) 

730  FORMAT(/"  ENTER  PHASE  NUMBER  AND  WEEKS  TRAVEL  TIME"/ 
A"  TO  ENTER  THAT  PHASE(  4 WEEKS  MAX.)  (/:X*XX)") 

740  FOHMAT("+NEXT") 

750  FORMATC  ANY  TRAVEL  TIME(Y*N)") 

rettjrn;end 


XI.  DATA  FILE  DYNVAL 


PURPOSE  AND  USE 

11.1  Data  file  DYNVAL  is  used  to  store  the  results  of  the  dynamic  simula- 
tion of  the  training  system.  The  results  for  each  phase  in  the  training  system 
and  each  week  in  the  projection  range  are  stored  on  this  file.  Program  DYNA3 
writes  the  results  in  this  file.  Program  DYNA4  reads  the  results  and  prints  them 
out.  Program  DYNA5  also  reads  this  file. 

FILE  DESCRIPTION 

11.2  Data  file  DYNVAL  is  a random  binary  file  consisting  of  650  records  with 
9 words  per  record. 1/  Thus,  the  file  consists  of  5,850  words  which  require 

19  storage  units.  Random  binary  files  were  used  because  the  monthly  storage 
cost  is  approximately  half  the  monthly  charge  for  character  files  and  the  storage 
is  more  efficient. 

11.3  Each  record  contains  information  for  one  phase  for  1 week.  The  data 
in  each  word  of  a record  are  described  in  Table  31 . 

11.4  The  data  are  written  into  the  file  by  program  DYNA3  after  the  results 
for  all  phases  have  been  calculated  for  a week.  Thus,  if  there  are  NPH  phases 
in  the  training  system,  the  first  group  of  NPH  records  in  the  file  contains  the 
results  for  all  phases  for  the  first  week  of  the  projection  range.  The  second 
group  of  NPH  records  contains  the  results  for  all  phases  for  the  second  week. 


1/  The  CE  time-sharing  system  does  not  permit  true  random  access  at  a word 
level.  Only  the  records  can  be  accessed  directly.  Binary  files  are  created 
by  the  CREATE  command. 
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HacsDim  Fium, 


If  the  results  for  phase  N for  week  K in  the  projection  range  are  desired,  then 
record  R must  be  read  where 

R = N + (K  - DNPH. 


REDUCTION  OF  FILE  SIZE 

11.5  The  file  was  set  up  to  give  the  user  maximum  flexibility.  However, 
this  flexibility  may  result  in  unused  storage  space.  There  are  several  changes 
that  can  be  made  to  reduce  the  required  size  of  the  file  DYNVAL.  The  changes 
result  in  restricted  user  flexibility.  Any  changes  must  consider  the  users 
involved. 

11.6  The  total  number  of  records  in  the  file  is  determined  by  the  product  of 
the  total  number  of  training  phases  permitted  (25)  and  the  maximum  number  of 
weeks  in  a projection  range  (26).  Thus,  650  (i.e. , 25  x 26)  records  were  re- 
quired, If  no  more  than  16  training  phases  are  to  considered,  the  file  size  may 
be  reduced  to  416  (i.e,,  16  x 26)  records  or  12  storage  units. ^ However, 
program  DYNAl  could  be  changed  to  permit  a larger  projection  range  (e.g. , 

16  phases  for  40  weeks  require  640  records).  This  change  obviously  extends 
the  users'  flexibility.  The  programs  DYNA3  and  DYNA4  are  written  so  that  if 
the  file  DYNVAL  is  too  small,  an  error  message  is  printed  and  the  calculations  are 
stopped  but  the  program  continues  with  an  automatically  adjusted  projection 
range.  The  results  of  the  adjusted  projection  range  can  be  printed.  The  projec- 
tion range  will  be  adjusted  to  reflect  what  was  calculated  and  stored  on  the  data 
file  DYNVAL, 

11.7  An  additional  change  and  modification  to  the  file  and  the  program  con- 
cerns the  number  of  types  of  aircraft.  If  only  one  aircraft  type  is  to  be  con- 
sidered in  each  training  phase,  words  6 through  9 in  each  record  will  not  be 
used.  Therefore,  the  record  size  may  be  changed  to  five  words.  However,  all 
read  and  write  statements  in  programs  DYNA3  and  DYNA4  will  have  to  be 
modified. 

11.8  As  a final  alternative,  if  the  model  is  not  run  daily,  it  may  be  cheaper 
to  create  and  purge  the  file  before  and  after  each  run. 


2/ 


The  important  consideration  is  the  number  of  storage  units,  not  the  number 
of  records. 
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TABLE  31 

CONTENTS  OF  A RECORD  IN  DATA  FILE  DYNVAL 


Word 

Description  of  Contents 

1 

Student  load 

2 

Student  output 

3 

Number  of  attrltes 

4 

Daily  aircraft  utilization  for  first  aircraft  type 

5 

Daily  Instructor  utilization  for  first  aircraft  type 

6 

Daily  aircraft  utilization  for  second  aircraft  type 

7 

Daily  instructor  utilization  for  second  aircraft  type 

8 

Daily  aircraft  utilization  for  third  aircraft  type 

9 

Daily  instructor  utilization  for  third  aircraft  type 
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XII.  DATA  FILE  DYNCOM 


PURPOSE  AND  USE 

12.1  Data  file  DYNCOM  is  used  as  the  restart  file.  The  file  is  prepared 
when  the  user  runs  the  Dynamic  IFRS  model  by  entering  program  DYNAM,  i.e. , 
when  the  data  initialization  segment  of  the  model  is  run.  The  file  is  read  by 
programs  DYNAl  and  DYNA5 . 


' « 

: vi 


FILE  DESCRIPTION 

12.2  Data  file  DYNCOM  is  a random  binary  file  consisting  of  189  records 
with  25  words  per  record.  Thus  the  data  file  contains  4,725  words  which  re- 
quire 15  storage  units.  The  contents  of  each  record  are  described  in  Table  32. 


Record  Number 

Description  of  Contents 

1 

Time,  date,  flag  indicator  for  complete  update  (i.e. , 
integer  parameters,  number  of  phases,  etc.) 

2 

Time  and  date  of  last  complete  update  for  file 

3 

Unused 

4-6 

Names  of  training  phases 

7-9 

Names  of  aircraft  types 

10-12 

Names  of  fuel  types 

13-15 

Names  of  instruction  types  by  phase 

16 

Average  portion  of  phase  a student  attrite  completes 

17 

Number  of  weeks  in  training  phases 

18 

Instructor  tour  of  duty  length  by  phase 

19 

Number  of  aircraft  types  by  phase 

20 

Number  of  academic  instructor  types  by  phase 

21-23 

Percent  of  flyable  weather  per  aircraft  type  by  phase 

24-26 

Fuel  consumption  rate  per  aircraft  type  by  phase 

27-29 

Aircraft  utilization  per  aircraft  type  by  phase 

30-32 

Daily  flight  instructor  utilization  per  flight  instruction 
type  by  phase 

33-35 

Student  flight  hours  to  complete  a successful  student 
by  flight  instruction  type  by  phase 

36-38 

Flight  instructor  hours  to  complete  a successful  student 
by  flight  instruction  type  by  phase 

39-41 

Flight  instructor  training  period  per  Instruction  type 
by  phase 

42-44 

Landing  support  officer  to  student  type  ratio  per  flight 
instruction  type  by  phase 

45-47 

Enlisted  maintenance  personnel  per  aircraft  type  by  phase 

Record  Number 

Description  of  Contents 

48-50 

Student  academic  hours  per  academic  instruction  type  by 
phase 

51-53 

Academic  Instructor  hours  per  academic  instruction  type 
by  phase 

54-56 

1 

Academic  instructor  training  period  per  academic  in- 
struction type  by  phase 

57-59 

NFO  flight  instructor  utilization  per  flight  instruction 
type  by  phase 

60-62 

NFO  flight  instructor  hours  to  complete  a successful 
student  per  instruction  type  by  phase 

63-65 

NFO  flight  instructor  training  period  per  instruction 
type  by  phase 

66 

Phase  number  of  deleted  phases 

67-100 

Unused 

101 

Student  load  by  phase 

102 

Student  output  by  phase 

103-105 

Number  of  aircraft  per  aircraft  type  by  phase 

106-108 

Number  of  Instructors  per  aircraft  type  by  phase 

109-114 

Unused 

115-116 

Number  and  names  of  pipelines 

117-126 

Coded  data  per  pipeline  by  phase 

127-152 

Percent  of  students  entering  branch  phases  by  phase 

153-154 

Unused 

155 

Travel  time  between  phases 

156-159 

Student  input  for  first  entry  phase  by  week 

160-163 

Student  input  for  second  entry  phase  by  week 

164-167 

Student  input  for  third  entry  phase  by  week 

168-189 

Unused 

Xm . DATA  FILE  WASRFILE 


PURPOSE  AND  USE 

13.1  Data  file  WASRFILE  is  used  to  store  the  Weekly  Aviation  Statistical 
Report  (WASR)  data  and  expected  weekly  student  input  data . Program  WASRX 
and  PTRS2  provide  access  to  data  in  this  file.  This  file  should  not  be  purged 
if  the  users  plan  to  run  the  model  and  update  this  file  on  a weekly  basis. 

FILE  DESCRIPTION 

13.2  Data  file  WASRFILE  is  a random  binary  file  consisting  of  62  records 
with  25  words  per  record.  The  data  file  therefore  contains  1,550  words  which 
require  5 storage  units. 

13.3  The  file  has  three  parts.  The  first  part  (records  1 to  24)  is  for  pilot 
training  system  data.  The  second  part  (records  25  to  48)  is  for  NFO  training 
system  data.  The  third  part  (records  49  to  62)  is  reserved  for  future  use.  Thus, 
if  the  NFO  system  will  never  be  considered,  the  file  size  can  be  reduced  to 

24  records  (2  storage  units). 

13.4  The  contents  of  each  record  are  described  in  Table  33.  Each  record 
requires  25  words  to  provide  for  a maximum  of  25  training  phases.  The  weekly 
student  input  for  an  entry  phase  requires  4 records  or  100  words.  Thus  100  weeks 
of  data  may  be  stored  there. 
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m TABLE  33 

I DATA  FILE  WASRFILE 


Record  Number 

Description  of  Contents 

Pilot 

NFO 

Weekly  Aviation  Statistical  Report  Data 

1 

25 

Title,  time  and  date 

2 

26 

Student  load  by  phase 

3 

27 

Student  output  by  phase 

4-6 

28-30 

Number  of  aircraft  per  aircraft  type 
by  phase 

7-9 

31-33 

Number  of  instructors  per  aircraft 
type  by  phase 

Weekly  Student  Input  Data 

10 

34 

Title , time  and  date 

11 

35 

Entry  phase  date  (i.e. , entry  phase 
numbers,  etc.)  time  and  date  of 
last  modification 

12 

36 

Travel  time  between  phases 

13-16 

37-40 

Weekly  student  input  for  first  entry 
phase 

17-20 

41-44 

Weekly  student  input  for  second 
entry  phase 

21-24 

45-48 

Weekly  student  input  for  third 
entry  phase 

49-62 

Unused— storage  for  future  use 

190 
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